Soru 0 ya da boş olan sutun değerine göre satır temizleme

[excellkurdu]

Arkadaşarlar merhabalar,
Aşağıdaki gibi basit bir makrom var. Bu 304 nolu satıra kadar gidiyor. Bunu tek tek yazana kadar, nasıl basitleştirebiliriz? Yani C5 den C305 de kadar olan 0 değerindeki satırların B ile R arasını temizlemek istiyorum.

If Range("A5") = 0 Then
    Range("B5:R5").Select
    Selection.ClearContents
    End If
If Range("A6") = 0 Then
    Range("B6:R6").Select
    Selection.ClearContents
    End If
If Range("A7") = 0 Then
    Range("B7:R7").Select
    Selection.ClearContents
    End If
If Range("A8") = 0 Then
    Range("B8:R8").Select
    Selection.ClearContents
    End If
If Range("A9") = 0 Then
    Range("B9:R9").Select
    Selection.ClearContents
    End If
If Range("A10") = 0 Then
    Range("B10:R10").Select
    Selection.ClearContents
    End If

 

[ÖmerFaruk]

For i = 5 To 304
    If Range("A" & i) = "" Then Range("B" & i, "R" & i).ClearContents
Next i

 

[işsiz123]

Merhabalar
Aşağıdaki gibi deneyebilirsiniz.

Sub işsiz123()
For i = 1 To 304
If Sheets("Sayfa1").Range("A" & i).Value < 0  Or Sheets("Sayfa1").Range("A" & i).Value = " " Then
   Range("B" & i, "R" & i).Select
    Selection.ClearContents
  
    End If
Next
End Sub

 

[excellkurdu]

Sayın NextLevel, Sayın işsiz123 ilginize çok teşekkür ederim.
Sayıb NextLevel in kodu sorunumu çözdü. tekrar sizlere teşekkür ederiyorum
Sub x()
For i = 5 To 304
If Range("C" & i) = 0 Then Range("B" & i, "R" & i).ClearContents
Next i
End Sub