zeilen einfügen

danke im vorraus

Private Sub CommandButton2_Click()
Dim Zeile As Long, Spalte As Integer
Zeile = Selection.Row + 1
Selection.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Selection.EntireRow.Copy Selection.Offset(1, 0).EntireRow
For Spalte = 1 To 256
If Not Cells(Zeile, Spalte).HasFormula Then Cells(Zeile, Spalte) = ""
Next

End Sub