Option Explicit
Sub Macro1()
Dim rngCell As Range
Application.ScreenUpdating = False
For Each rngCell In Range("G1", Range("G" & Rows.Count).End(xlUp))
If IsError(rngCell) = True Then
rngCell.ClearContents
End If
Next rngCell
Application.ScreenUpdating = True
End Sub
Bookmarks