Dim CurrentCell As Object, NextCell As Object
ActiveWorkbook.Sheets("Sheet1").Select
Set CurrentCell = Range("A7")
Do Until IsEmpty(CurrentCell)
Set NextCell = CurrentCell.Offset(1, 0)
CurrentCell.EntireRow.Select
For Each CELL In Selection
If IsError(CELL) Then
CELL.ClearContents
Else
End If
Next
Set CurrentCell = NextCell
Loop