I am trying to record a macro that will copy a certain cell, go to the last
entry in a column and paste the value. I am using Excel 2007. I have been
able to copy and past using the macro but the relative reference function has
not worked. The macro throws and error and visual basic identifies the
second to last line of code as the issue. Here is the code. Does anyone
know how to get around this issue?

Range("D1").Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9