Option Explicit

Sub Laba()
    '1. Удалить строки с 1 по 5
    Rows("1:5").Delete
     
    '2. Очистить содержимое строк 1, 2
    Rows("1:2").ClearContents
     
    '3. Вписать в ячейку A1 "Дата", а в ячейку B1 дату в формате дд.мм.гггг
    [A1] = "Дата": [B1] = Format(Date, "dd.mm.yyyy")
     
    '4. Вписать в ячейку A2 "Номер паспорта"
    [A2] = "Номер паспорта"
     
    '5. Пройти циклом с ветвлением по столбцу С до тех пор пока в ячейке будет попадаться какое либо содержимое,
    'как только наткнется на пустую ячейку (допустим C133) То удаляет содержимое строк 133-233 (100 строк в общем для надежности)
    Dim i As Integer
     
    i = 3 'начинаем с 3-ей строки
    Do
       If Range("C" & i) = "" Then
          Rows(i & ":" & i + 100).ClearContents
          Exit Do
       End If
       i = i + 1
    Loop
     
    '6. заполнить ячейки T1-T133(тут конечная ячейка выбирается исходя из той которая была в пункте 5) пробелами,
    'причем важно именно не очистить ячейки, а вставить в каждую по пробелу
    '7. Заполнить ячейки с А133 (опять же конечная строка берется из пункта 5) до Т133 пробелами
    Union(Range("T1:T" & i), Range("A" & i & ":T" & i)) = "*" 'здесь поставишь пробел
     
    '8. Ну и сохранить)
    ActiveWorkbook.Save
End Sub