Wave=Table[Show[Plot[Sin[2 Pi t-2 Pi x/1],{x,-1,1}],ListPlot[{{0,Sin[2 Pi t]}},PlotMarkers->{Automatic,15},PlotStyle->{Red},Filling->Axis,FillingStyle->Thick],ImageSize->Large],{t,0,1,0.01}]

Export["Wave-Animation.gif",Most[Wave]]

WA=Animate[
Show[
Plot[Sin[2 Pi (t-x)],{x,-1,1}],
ListPlot[{{0,Sin[2 Pi t]}},PlotMarkers->{Automatic,15},PlotStyle->{Red},Filling->Axis,FillingStyle->Thick],ImageSize->Large],{t,0,1}
]

Export["Wave-Animation.cdf",WA,"CDF"]