düşeyara makro son satırı nasıl yaparım

[sormadim]

Merhaba
düşeyaradan sayfa1 den sayfa2 ye istediğim verileri alabiliyorum
aldıgım verilerin son satıra kadar işlemesi için örnegin B2 hücresini alt köşesini çift tıkladıgımda son satıra kadar iniyor.burda sıkıntı yok
ama ben bu işlemi makro kayıt ile yaptığımda
Selection.AutoFill Destination:=Range("B2:B22")
Range("B2:B22").Select
bu şekil formul oluşturuyor,sonra yapacağım işlemlerin 22 den eksik veya fazla oldugundan formul calışmıyor.

istediğim A hücresinin son satırı ne ise B,C,D,E,F,G leride buna göre son satırlarını ayarlaması
ne yapmam gerekir teşekürler

 

[Ömer]

Merhaba,

Bir örnek, siz kendinize uyarlarsınız.

Sub Son_Sat()
    
    Dim son As Long
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("B2:B" & son).Select
    
    
End Sub

.

 

[sormadim]

Ömer bey teşekür ederim ellerinize sağlık