Sub Maybe()
Dim wb2 As Workbook
Set wb2 = ThisWorkbook
Application.ScreenUpdating = False
Workbooks.Open ("C:\Folder Name Here\Workbook Name To Copy From Here.xlsm")
Range("A1").CurrentRegion.Copy wb2.Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub