Написать процедуру, которая в пустые ячейки вставляет текст "Пусто".

Sub ïóñòî()
' âñòàâëåííÿ òåêñòó "ïóñòî" ó êîì³ðêè â ÿêèõ íå ñòîÿòü ÷èñëà
Dim cell As Range
   If TypeName(Selection) <> "Range" Then Exit Sub
Const a = "ïóñòî"
Application.ScreenUpdating = False
   For Each cell In Selection
      If cell.Clear Then
      cell.Name = a
            Else
      cell.Name = xlNone
       End If
  Next cell
End Sub

Sub Fo()
  On Error Resume Next
  Intersect(Selection, Selection.SpecialCells(xlCellTypeBlanks)).Value = "Пусто"
End Sub

Private Sub Test()
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Application.ScreenUpdating = False
    Dim iCell As Range
    For Each iCell In Selection
        If IsEmpty(iCell) = True Then iCell.Value = "Пусто"
    Next
    Application.ScreenUpdating = True
End Sub

Замена будет осуществлена только в тех ячейках, которые "принадлежат" диапазону UsedRange
 
Private Sub Test2()
    ActiveWindow.RangeSelection.Replace "", "Пусто"
End Sub