Нужен макрос, который будет пробегаться по столбцу G, начиная со строки 5, будет находить и удалять числа.
В столбце G находятся числа и адреса.
Sub Макрос()
Dim lr As Long, i As Long
' Отключение монитора, чтобы ускорить макрос.
' Можно ещё отключить формулы, если их много.
Application.ScreenUpdating = False
' Поиск последней строки в столбце G.
' End не ищет в скрытых строках.
lr = Cells(Rows.Count, "G").End(xlUp).Row
' Очистка ячеек, в которых числа.
For i = 5 To lr
If IsNumeric(Cells(i, "G").Value) Then
Cells(i, "G").Value = Empty
End If
Next i
' Сообщение.
Application.ScreenUpdating = True
MsgBox "Готово.", vbInformation
End Sub