Hi, I'm having trouble with pasting my coped data from one workbook into a next available blank row in the other workbook. This is what I have so far:
Sub Copy()
Application.DisplayAlerts = wdAlertsNone
dt = Format(CStr(Now), "mmmm d, yyyy")
ChDir "C:\Users\anneg\Desktop"
Workbooks.Open Filename:="C:\Users\anneg\Desktop\Book1.xlsx"
Rows("1:1").Select
Selection.Copy
ActiveWindow.Close
Range("A1").Select 'how to select next empty row on the worksheet and paste it onto that
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Any help would be great,
Thank you in advance