Sub Test()
Workbooks.Open Filename:= MyPath\myfile.xls
Windows("File1.xls").Activate
Range("BP18:BU18").Select
Selection.Copy
Windows("myfile").Activate
Range("Q1").Select
Selection.End(xlDown) (2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

This code is run daily and copies BP18:BU18 to a summary sheet. The first
run should copy to Q9 the next day should be Q10 etc.
How do I modify "Selection.End(xlDown) (2, 1).Select" to move down one line
each time this code runs? Or should I be using something different to
accomplish this?
Thanks
Sandy