VBA variabler Zellbezug

Sub Kopieren_TEST()
Dim i As Integer
Dim leer As Integer
leer = 0
For i = 1 To 100
If Worksheets("Eingabeblatt").Cells(i, 3).Text = "" Then leer = leer + 1
If leer > 5 Then Exit For
Debug.Print i
Debug.Print leer
Next i
' bis zu diesem Schritt läuft das Makro wie ich es mir vorstelle, wie bekomme ich jetzt über  _
'eine for-Schleife '(2 bis zeilenlänge), oder über Range den Wert aus Cells(2,1) in die  _
entsprechenden 'Zelle (b2 bis b ' 'zeilenlänge kopiert?
Cells(2, 1).Copy
For zeilenlänge = 2 To i
Debug.Print zeilenlänge
Range(2, zeilenlänge).Paste
Next zeilenlänge
'Range("B2:Cells(2, 1).FormulaR1C1 = "=R[-1]C+i").Select
'ActiveSheet.Paste
End Sub