Soru En Son Dolu Satırı bulup bir aşağı hücreye çekmek

[bulentkars]

Arkadaşlar Merhaba;
Yapmak istediğim Çalışma sayfamda En sondaki dolu satırı bir alta çekmek istiyorum. Satır ekleyerek işimi görmüyor çünkü biçimlendirmeler dahil bu işlemi yapıyor. Bu yüzden makro kaydet ile sürükle bırak yaptığımda aşağıdaki kod oluştu.
Örneğin En son dolu satır F18 satırda olduğunu varsayalım.
Ben F18:N18 hücrelerini seçip bir aşağıda satıra yani 19.satıra mause ile çekmek istiyorum.
Aşağıdaki kodun dinamik olabilmesi için yardımcı olabilirseniz sevinirim.

Range("F18:N18").Select
    Selection.Cut Destination:=Range("F19:N19")
    Range("F19:N19").Select

 

[AdemCan]

Merhaba, bu kodları kullanabilirsiniz.
Not: F sütununa göre son dolu satır bulunur.

son = Range("F" & Rows.Count).End(3).Row
Range("F" & son & ":N" & son).Cut Destination:=Range("F" & son + 1 & ":N" & son + 1)

 

[bulentkars]

Sayın Ademcan;
Elinize emeğinize sağlık. Çok Teşekkür ederim.

 

[AdemCan]

Rica ederim.