Bereich nach Einfügen formatieren

Sub ZeilenEinfügen()
Dim z As Variant
Dim x As Variant
z = Application.InputBox _
("Geben Sie die Anzahl der einzufügenden Zeilen ein.", _
"Zeilen einfügen", "6", , , , , 2)
For x = 1 To z
Selection.EntireRow.Insert
Next x
End Sub