Add Loop and timer

[Tenspeed39355]

Hi guys I have two ss. What I am doing is to take the first symbol in
column A B3 do a copy and past it into the second ss at $D$1. When the data changes I am going to 9 down from D1 and doing a copy of B28 to J28.
I bring the data back to the first ss and paste it at B3. Can I use a loop and a timer to to all the way down column A to the end of the data. It so Please add to the code I have encluded.
[VBA]Sub Macro1()
'
' Macro1 Macro
'
'
Range("A3").Select
Selection.Copy
Windows("NAV.xlsm").Activate
ActiveWindow.SmallScroll Down:=-18
Range("D1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("B28:J28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("DatafromNAVSS.xlsx").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub[/VBA]
I did this by writing a macro
Max