Code to copy from active worksheet to another workbook next available a cell

[Ace71425]

I need to copy a range A1:D5000 from the active worksheet I have open and open up another workbook paste it to the next availble a cell and then save and close that other workbook. Please let me know if you have the VBA for this as I have tried multiple things to no avail. Thank you!

 

[Trevor G]

Which sheet would it need to go to in the other workbook?

 

[Ace71425]

The 3rd sheet which is called TRACKING SHEETS

 

[Trevor G]

Try this:

Sub copyData1A()
Range("A1:D5000").Copy
Workbooks.Open "Path and workbook name.xlsx" 'Add the path and workbook name here
Sheets("TRACKING SHEETS").Activate
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1).Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[Ace71425]

I'm having the same problem I was having with some other code I was messing around with it seems solid up to the point where it opens up the other workbook and selects and goes to the TRACKING SHEETS tab perfectly but then it doesnt paste and I get a 400 error

 

[MARK858]

Do you get the same error with the code below?

Sub copyData1A()
    Range("A1:D5000").Copy
    Workbooks.Open "Path and workbook name.xlsx"    'Add the path and workbook name here
    Sheets("TRACKING SHEETS").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial

    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub