Makronun hücre boş ise durması

[ASGARDWODAN]

Selamlar Arkadaşlar;
Ben acemi bir kullanıcı olarak bana lazım olan vba kodunu ( örneklerden alarak ) ve bir makroyu ( kayıt yaparak oluşturdum ) bu makro ile iki listeyi kaşılaştırıyorum bu iki liste fiyat bilgileri ile ilgili il liste eski fiyatları ikinci liste fiyat değişikliğine uğrayanları gösteriyor ve eski liste ile yeni listey karşılaştırıp fiyatı değişenleri ve değişmiş fiyatları görüyorum ancak makro ; örneğin a2 hücresinden a 7000 e kadar bu işlemi yapıyor benim istediğim ise a hücresi boş ise işlemin durması yani listede 2000 veri var ise orada durması sonraki 5000 tane boş hücreye bakmasına gerek yok ancak şöyle birşeyde var stokda 5000 değişen listede 2000 veri olabilir veya tam tersi firmadan gelen değişim listesi 5000 tanedir bende bu kalemlerin 3000 tanesi olabilir bu konuda vba kodlaması nasıl olabilir yardımlarınızı bekliyorum.
Sub eski()
For i = 2 To 4000
x = WorksheetFunction.CountIf(Sheets("DEĞİŞİM").Range("A2:A4000"), Sheets("STOK").Range("A" & i))
If x = 0 Then
Cells(i, 3) = "FİYAT DEĞİŞİMİ YOK"
Else
Cells(i, 3) = "FİYATI DEĞİŞMİŞ"
End If
Next


Range("D2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],DEĞİŞİM!R1C1:R4000C2,2,0)"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2: D4000")
Range("D2: D4000").Select
Selection.AutoFilter Field:=4, Criteria1:="<>#N/A", Operator:=xlAnd
MsgBox "İŞLEM BİTMİŞTİR..."

End Sub

 

[Orion1]

Sayfa1de A sütunundaki son dolu satırı verir.

sheets("Sayfa1").cells(65536,"A").end(xlup).row