Alle leeren Zeilen einer Spalte mit Daten füllen

Sub werte_eintragen()

' Variablen   
'az= aktuelle_Zeile;  
'z = Zeilenanzahl;  
's1= Spaltennr_1; Spalte E  
's2= Spaltennr_2; Spalte I  

Dim az,z,s1,s2 As Integer
set az=Zeilenanzahl
set s1=5
set s2=9

For az = 1 To z Step 1
        If Worksheets("Name").Cells(az, s2) = "" then Worksheets("Name").Cells(az, s2)= Worksheets("Name").Cells(az, s1)  
Next az

End Sub

Const StartZeile = 3    'Ab Zeile ?  

Sub CellsCopy()
    Dim r As Long
    
    With Sheets("Tabelle1")  
        For r = StartZeile To .Cells(.Rows.Count, "E").End(xlUp).Row  
            If IsEmpty(.Cells(r, "I")) Then .Cells(r, "E").Copy .Cells(r, "I")  
        Next
    End With
End Sub