Option Explicit
Sub Test()
Dim rngSource As Excel.Range
Dim rngTarget As Excel.Range
Dim n As Long
Set rngTarget = Range("A1")
Do While n < 2
n = n + 1
Debug.Print "n ="; n
Debug.Print "bin gerade hier: "; Tab(3); rngTarget.Address
Set rngSource = Tabelle2.Range("C13:CZ13").Resize(RowSize:=WorksheetFunction.RandBetween(2, 30))
Debug.Print "kopiere Bereich: "; Tab(3); rngSource.Address; Spc(4); rngSource.Rows.Count; "Zeilen"; Tab(3); "nach " & rngTarget.Address
Call rngSource.Copy(Destination:=rngTarget)
Set rngTarget = rngTarget.Offset(rngSource.Rows.Count)
Loop
End Sub