Need macro for all open workbooks 1st columnc copy

I am looking to get a macro that will copy "Column A" in Tab "Budget" for all open workbooks and place in a newly created workbook in a big line in that "Column A"

If you need more info please let me know. Thanks

I was giving me a syntax error

Sub LoopThroughSheets()
Dim wbBook As Workbook, rCopy As Range, rPaste As Range

With Worksheets("Budget")
For Each wbBook In Workbooks
If wbBook.Name <> ThisWorkbook.Name Then
Set rPaste = .Range&(A65536").End(xlUp).Offset(1, 0)
Set rCopy = wbBook.Range(Range("A1"), Range("A1").End(xlDown))
rCopy.Copy Destination:=rPaste
End If
Next
End With


If i can get it to open a new workbook and paste it into sheet 1 that would be great...