VBA kopiere fra ark der varierer i længde

Hej alle

Jeg forsøger at kopiere fire faners data over i en samlet fane. Det er altid kolonne A:F, men antal rækker varierer. Derfor har min viden begrænset sig til select-løsningen og således ikke en nem måde at skrive loop på.

Altså:

Sheets("1").Select
    Range("A1:F1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("SAMLET").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select

Nu er den så klar til at jeg tager næste fane.

Der må være en simpel måde at gøre dette simplere på. Kan jeg undgå select - altså kan jeg sheets("1").range(range("A1"),range("A1").offset(5,xlend).copy
Eller noget i den stil?