Makro: Zellen und Formeln einfügen

Sub Neue_Zeilen_einfügen()
'
' Neue_Zeilen_einfügen Makro
' Fügt 10 neue Zeilen inklusive der Formel ein
'

'
ActiveWindow.ScrollRow = 1
ActiveWindow.SmallScroll Down:=9
Rows("81:81").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll ToRight:=2
Range("D80").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=3
Range("D81:D90").Select
ActiveSheet.Paste
End Sub

Problem ist, dass ich neue Teilen nur ab Zeile81 eingefügt bekomme. Was muss ich ändern, um neue Zeilen ab einer von mir markierten Zeile eingefügt zu bekommen?

MfG
Dominik