Makro Kod İle Seçip Kopyalama

[anilman]

Merhaba, linkteki dosyada B4 hücresinden P4 hücresine kadar kodla seçim yapıp kopyalamasını istiyorum. (Varsa En son dolu satıra kadar)
Yardımınız için teşekkürler.

https://s5.dosya.tc/server5/10ahvu/Yuk.xls.html

 

[ÖmerFaruk]

'Sadece 4.satır
Range("B4:P4").Copy

'4.satırdan en son dolu satıra kadar B-P aralığını kopyalamak iin
Son = Range("B" & Rows.Count).End(3).Row
Range("B4:P" & Son).Copy

 

[anilman]

'Sadece 4.satır
Range("B4:P4").Copy

'4.satırdan en son dolu satıra kadar B-P aralığını kopyalamak iin
Son = Range("B" & Rows.Count).End(3).Row
Range("B4:P" & Son).Copy

Teşekkürler