Döngü değer olan son hücre satır sayısı kadar olsun

[kykbt]

Arkadaşlar Merhaba;

Yazdığım döngünün son değerini içinde değer olan en son hücre satır sayısı kadar olmasını istiyorum nasıl yazmalıyım?
Aşağıdaki örnekte
1-z 500 yerine ne yazmalıyım?
2-To 500 yerine ne yazmalıyım?

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [A3:z500]) Is Nothing Then Exit Sub
For SUT = 3 To 500
End If

Next
End Sub

 

[hsayar]

Arkadaşlar Merhaba;

Yazdığım döngünün son değerini içinde değer olan en son hücre satır sayısı kadar olmasını istiyorum nasıl yazmalıyım?
Aşağıdaki örnekte
1-z 500 yerine ne yazmalıyım?
2-To 500 yerine ne yazmalıyım?

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=SeaGreen]sonsat= Cells(65536, 1).End(xlUp).Row[/COLOR]
If Intersect(Target, Range(Cells(3, 1), Cells([COLOR=Green]sonsat[/COLOR], 26))) Is Nothing Then Exit Sub
'If Intersect(Target, Range(Cells(3, "A"), Cells([COLOR=Green]sonsat[/COLOR], "Z"))) Is Nothing Then Exit Sub     'İKİSİNDEN BİRİNİ KULLANABİLİRSİN.
  For SUT = 3 To[COLOR=SeaGreen] sonsat[/COLOR]
    ........................
  next sut 
End Sub

yukarıdaki kod kümesini eklemeniz yeterli.

 

[kykbt]

Arkadaş Teşekkürler