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