Set currentCell = Range("A2")
Do While Not IsEmpty(currentCell)
    Set nextCell = currentCell.Offset(1, 0)
    If currentCell.Value = "5" Then
       currentCell.EntireRow.Select
       Selection.ClearContents
    End If
    Set currentCell = nextCell
Loop
Range("A1").Select