Option Base 0

Sub InsName()
Dim ws As Worksheet
Dim wName() As String
Dim CCell As Range
Dim CCount As Integer

For Each ws In ThisWorkbook.Worksheets                ' перебор всех листов в книге
   wName = Split(ws.name, " ")                        ' разбивка имени листа на слова
   CCount = ws.UsedRange.Rows.Count                   ' количество строк на листе
   Set CCell = ws.Cells(1, 1)                         ' установка указателя на первую строку
   Do While CCell.Row <= CCount                       ' повтор пока не достигнет конца
      If CCell.Value = "" Then CCell.Value = wName(0) ' если ячейка пустая - вставка первого слова из названия листа
      Set CCell = CCell.Offset(1, 0)                  ' сдвиг указателя вниз
   Loop
Next ws
End Sub