I am having a problem with the following macro:
Sub CopyPasteSpecial()
Application.ScreenUpdating = False
Range("A3:A61").Select '(The range I’m copying)
Selection.Copy
Workbooks.Open Filename:="C:\My Documents\Special\Handicaps.xls" '(The file I’m pasting to.)
Sheets("Scores").Select '(The sheet I’m pasting to)
[B1].Select '(The column I want to begin my paste in…(The dates are in Column A))
Selection.End(xlDown).Select '(Goes to my last entry in this column)
ActiveCell.Offset(1, 0).Select '(Drops down to the next row, in Col.B)
Selection.PasteSpecial xlValues
Application.ScreenUpdating = True
End Sub
The macro stops at: ActiveCell.Offset(1, 0).select
I am trying to copy a range (a3:a61) from one workbook and
paste it into another workbook starting at range b1 of the second
workbook.
Any help would be greatly appreciated.
Thank you
Sub CopyPasteSpecial()
Application.ScreenUpdating = False
Range("A3:A61").Select '(The range I’m copying)
Selection.Copy
Workbooks.Open Filename:="C:\My Documents\Special\Handicaps.xls" '(The file I’m pasting to.)
Sheets("Scores").Select '(The sheet I’m pasting to)
[B1].Select '(The column I want to begin my paste in…(The dates are in Column A))
Selection.End(xlDown).Select '(Goes to my last entry in this column)
ActiveCell.Offset(1, 0).Select '(Drops down to the next row, in Col.B)
Selection.PasteSpecial xlValues
Application.ScreenUpdating = True
End Sub
The macro stops at: ActiveCell.Offset(1, 0).select
I am trying to copy a range (a3:a61) from one workbook and
paste it into another workbook starting at range b1 of the second
workbook.
Any help would be greatly appreciated.
Thank you