Kopyala-Yapıştır-döngü kurmak (yardım)

[EmirhanG]

Merhabalar değerli arkadaşlar herkezlere hayırlı akşamlar ve kolaylıklar dilerim.
Arkadaşlar yaptığım çalışmada, çalışma sayfasında a kolonunda dolu enson satırı buldurup, hüçredeki formülu kopyalatıp, dolu hüçrenin altındaki 100 boş hüçreye formülü yapıştırmak yada yazdırmak istiyorum yardımcı olacak arkadaşlara şimdiden teşekürler ....

 

[Orion1]

A sütunundaki son dolu satırdaki veriyi A sütununda aşağıya doğru 100 hücre kopyalar.

Sub kopyala()
son = Cells(65536, "A").End(xlUp).Row
Range("A" & son).Copy
Range("A" & son + 1 & ":A" & son + 101).PasteSpecial
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub

 

[EmirhanG]

Teşekürler üstad

 

[Orion1]

Teşekürler üstad

Rica ederim.
İyi çalışmalar.