Copying from multiple workbooks

I've been trying like crazy to get this to work. I'm trying to take all the data from column A in multiple workbooks and list them one after another in column A of my transfer workbook. The trouble really comes from from needing to do it with a random amount of workbooks and lengths of column A
This is what I have so far:

Sub TryAgain()
    Dim MyBook As Workbook
    Dim BookName As String
    Dim LastRow As Long
    Dim LastRowTwo As Long
    Dim RangeRow As String
    Dim RangeRowT As String
    
    For Each MyBook In Workbooks
      If MyBook.Name <> "Transfer.xls" Then
        BookName = MyBook.Name
        
        Windows(BookName).Activate
        LastRowTwo = Range("A65536").End(xlUp).Row
        RangeRow = "A" & Str(LastRowTwo)
        Range("A2", RangeRow).Select
        Selection.Copy
        
        Windows("Transfer.xls").Activate
        Worksheets("Import").Activate
        LastRow = Range("A65536").End(xlUp).Row
        LastRow = LastRow + 1
        RangeRowT = "A" & Str(LastRow)
        Range(RangeRowT).Select
        ActiveSheet.Paste
        
      End If
    Next MyBook
        


End Sub

Any help would be great.

oops. I did change the name of transfer.xls to zip it and post. I had to delete a bunch of info due to work security. The orginal is titled correctly.

Thank you very much. It works perfectly now.

One more quick part on this. I need to put the file name in column k but I can't get it to loop right. Each row needs the name in "K" from the file it came from and all I can get it to do is put it in the top most unused row.