Copy then open file select new line and paste

[MAButler]

Ok the data can be any number of rows. I need to copy all rows open a file called "Under & Over Payments" and paste on the first free row. then close original file without saving, leaving "Under & Over Payments" open but saved.

 

[VoG]

Maybe like this

Sub cpy()
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks.Open("Under & Over Payments.xls")
wb1.Sheets("Sheet1").UsedRange.Copy Destination:=wb2.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)
wb1.Close False
wb2.Save
End Sub

 

[MAButler]

Keep coming with error visual basic 400?

 

[MAButler]

Thanks for the code i have got it to work