hello
I was surprised to see that your signal length is very long (730185 samples) and probably you are using a quite high sampling rate for what you really need
so basically I started downsampling your data with decimate (that includes also a low pass filter) and that is enough to already decrease significantly your noise level (which is high freq noise)
as a second step you can add some smoothing with smoothdata (equivalent to a low pass filter without phase distortion)
fyi, you can remove the decimation step if you really need to keep that high amount of data, but for plotting we rarely need more than a few thousands points
Zoom
Fs1=smoothdata(Fd,'movmedian',N);
legend('raw','decimated','decimated and smoothed');