Option Explicit
Option Base 1

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    Dim wkb As Workbook
    Dim i As Integer
    Dim wbName(5) As String
    
    wbName(1) = "Car.xlsx"
    wbName(2) = "Bikes.xlsx"
    wbName(3) = "HGV.xlsx"
    wbName(4) = "Vans.xlsx"
    wbName(5) = "Other.xlsx"
    
    For i = 1 To 5
        Set wkb = Workbooks.Open(ThisWorkbook.Path & "\" & wbName(i))
    
        wkb.Worksheets(1).Range("A1").CurrentRegion.Offset(1, 0).Select
        Selection.Resize(Selection.Rows.Count - 1).Select
    
        Selection.Copy ThisWorkbook.Worksheets(i).Range("A2")
        wkb.Close savechanges:=True
    Next i
    Application.ScreenUpdating = True
End Sub