Ez már kezeli a számokat is

Sub Gepkocsi()
    Sheets("Összes").Select
    Range("A1").Select
    Selection.CurrentRegion.Select
    Tomb = Selection.CurrentRegion
    For sor = 2 To UBound(Tomb)
        lapnev$ = Cells(sor, 1).Value
        Sheets(lapnev$).Select: Range("A2").Select
        Tomb_lapnev = Selection.CurrentRegion
        Range(Cells(2, 1), Cells(UBound(Tomb_lapnev), 5)).Select
        Selection.ClearContents
        Sheets("Összes").Select
    Next
 
    For sor = 2 To UBound(Tomb)
        lapnev$ = Cells(sor, 1)
        Sheets(lapnev$).Select: Range("A1").Select
        Tomb_lapnev = Selection.CurrentRegion
        For oszl = 1 To 5
            Cells(UBound(Tomb_lapnev) + 1, oszl) = Sheets("Összes").Cells(sor, oszl)
        Next
        Sheets("Összes").Select
    Next
End Sub