En son dolu hücreden sonraki boş hücreye veri girmek

[elevisse]

Arkadaşlar Merhaba,

B sütünunda her seferinde değişen hücrelerim var.En son dolu hücreden sonraki boş hücreye aşağıdaki formülde nasıl bir değişiklik yapıp 'SON' yazabilirim. Teşekkürler.

Dim data As Long
    data = Cells(Rows.Count, "B").End(xlUp).Row
    Range("B" & data, "B" & data).Copy Range("B" & data + 2)

 

[Korhan Ayhan]

Aşağıdaki gibi kullanabilirsiniz. Kırmızı bölümle oynayarak istediğiniz hücreyi bulabilirsiniz.

Range("B" & data [COLOR="Red"]+ 1[/COLOR]) = "SON"