Thread: compile error with copy to different workbook

I am trying to put togher a macro that will copy a range from a workbook and add it to a history report that will store the data. I want the code to add the data to the next row down and leave the previous data the way it was. However I am stuck and am getting a complie error on this part of the code:

DestBook.Worksheets(1).Range("A" & Rows.Count).End(xlUp)(2, 1)

Here is the full code:

Sub CopyData()
Dim DestBook As Workbook, SrcBook As Workbook

Application.ScreenUpdating = False
Set SrcBook = ThisWorkbook

On Error Resume Next
Set DestBook = Workbooks.Open("I:\sctest.xls")
SrcBook.Worksheets(1).Range("A1:F1").Copy
Application.CutCopyMode = False
DestBook.Worksheets(1).Range("A" & Rows.Count).End(xlUp)(2, 1)
Application.CutCopyMode = False
DestBook.Save
DestBook.Close
End If
On Error GoTo 0
Set DestBook = Nothing
Set SrcBook = Nothing
End Sub

I am still learning vba and having a hard time with this
Any help would be wonderful.

Wow I can't believe i missed that. thanks.

That wasn't working either. I tried playing with it for a while and now i'm getting an
Object doesn't support this property or method on the same line.
This is what the code looks like right now:

Sub CopyData()
Dim DestBook As Workbook, SrcBook As Workbook

Application.ScreenUpdating = False
Set SrcBook = ThisWorkbook
SrcBook.Sheets(1).Range("A1:F1").Copy
Set DestBook = Workbooks.Open("I:\sctest.xls")
DestBook.Sheets(1).Range("A" & Rows.Count).End(xlUp)(2, 1).Paste
Application.CutCopyMode = False

DestBook.Save
DestBook.Close
End Sub