Freie Zeile mit Bestimmung ab Zeile

Eine Frage:

Möchte in nächste Freie Zeile Daten einfügen.
Er soll aber erst ab Zeile 6 beginnen einzufügen. Wie mache ich da.
Meine bisherige Funktion dazu :

Dim iRow As Integer

Sheets("Zwischen").Select
Rows("6:6").Select
Selection.Copy
Sheets("Erfasst").Select
iRow = Worksheets("Erfasst").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Erfasst").Cells(iRow, 1).Select
ActiveSheet.Paste

End Sub