excelde satır kontrolü

[chakistes]

merhaba arkadaşlar internetten veri çektikten sonra excelde a sütununa + olarak koyduruyorum fakat a sütununda + olmayanları tekrar çektirmek için kod uyarlaması yapamadım.
'satır kontrolü için kullandığım kod
Dim sayı As Integer
sayı = 1
Dim sonsatır As Integer
sonsatır = Sheets("sayfa1").Cells(Rows.Count, 2).End(xlUp).Row
For SAY = 2 To sonsatır
If Sheets("sayfa1").Range("A" & SAY) <> "+" Then

End If
sayı = sayı + 1
Next SAY
'---------------------------------------------------------------------------------

veri çekerken kullandığım kod
For i = 0 To ListBox1.ListCount - 1
UserForm1.WebBrowser1.Silent = True
UserForm1.WebBrowser1.Navigate ("https://xxxx.xxx.xx.tr/")
Application.Wait (Now + TimeValue("0:00:01"))

xbekleT
UserForm1.WebBrowser1.Document.getElementById("UyeSorgulamaSubmitModel_TcKimlikNo").Focus
xbekleT
With UserForm1.WebBrowser1.Document.getElementById("UyeSorgulamaSubmitModel_TcKimlikNo")
deneme

Application.Wait (Now + TimeValue("0:00:01"))
.Value = ListBox1.List(i, 0) & "1"
'Application.Wait (Now + TimeValue("0:00:01"))
xbekleT

UserForm1.WebBrowser1.Document.getElementById("uyeSorgulaBtn").Click
Application.Wait (Now + TimeValue("0:00:01"))
xbekleT
Sheets("Sayfa1").Range("D" & i + 2).Value = UserForm1.WebBrowser1.Document.getElementById("kimlik_ad").Value
Sheets("Sayfa1").Range("E" & i + 2).Value = UserForm1.WebBrowser1.Document.getElementById("Kimlik_soyad").Value
Sheets("Sayfa1").Range("F" & i + 2).Value = UserForm1.WebBrowser1.Document.getElementById("telefon").Value
'UserForm1.toplam.Value = sayı
DoEvents

xbekleT
Sheets("sayfa1").Range("A" & i + 2).Value = "+"
xbekleT
End With
'---------------------------------------------------
Dim ver As Integer
ver = Sheets("sayfa1").Range("A2200").End(xlUp).Row
toplam = ver - 1
Next i
MsgBox "tamam"