I have the following issue, please help

If Column B has information then Clear content of Column R in “Report” sheet.

Ex:

If B7 = 002 then .ClearContents of R7 in Sheet “Report”
If B12 = 005 Then .ClearContents of R12 in Sheet “Report”

I have the following code in my initial sheet:

[vba]
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5:B1000")) Is Nothing Then
NumRows = Target.Value - 1
For R = 1 To NumRows
Target.Offset(1, 0).EntireRow.Insert
Next R
End If
[/vba]