Dolu olan satırları gönderme

[buurakengin]

Merhabalar, aşağıdaki for döngüsünde 2. satırdan başlayıp 30. satıra kadar mail otomatik olarak gönderiyor. Ben sadece dolu olan satırları göndermesini istiyorum. Şimdiden teşekkürler


Sub MailTekrar()

Set bg = Worksheets("deneme")

sıra = 2

While bg.Cells(sıra, 5) <> 0
sıra = sıra + 1
Wend

For s = 1 To 30
Eposta
sıra = sıra + 1
Next s


End Sub