satır artırmak

[cemşir79]

Sub Satr()
    son = Range("D65336").End(3).Row
    Range("D" & son).AutoFill Range("D" & son & ":D" & son + Range("R5").Value), 0
End Sub

Yalnızca D sütununda değilde A11 den başlayıp R11 e kadar sayfalarda bulanan R5 de yazan sayı kadar nasıl satır artılarabilirz açıklamayı dosya içerinine yazdım