У меня есть отчет, который я вынимаю каждый день, который находится в очень неуклюжем формате. Он содержит переменное количество строк по 4 столбца, организованных в неофициальные таблицы на основе имени каждого сотрудника.

У меня есть имя сотрудника в столбце B, предшествующее 2 пустым строкам выше, а затем 1 пустому ряду данных ниже.

Я хочу выполнить цикл по данным, идентифицировать ячейки в столбце B <> blank, удалить целые 2 строки ниже этой ячейки и удалить всю 1 строку выше этой ячейки.

Ниже то, что я имею до сих пор. немного:

Sub test()

Dim currentSht As Worksheet
Dim startCell As Range
Dim lastRow As Long
Dim lastCol As Long
Dim i as integer

Set currentSht = ActiveWorkbook.Sheets(1)

Set startCell = currentSht.Range("A1")
lastRow = startCell.SpecialCells(xlCellTypeLastCell).Row
lastCol = startCell.SpecialCells(xlCellTypeLastCell).Column

For i = lastRow To 1
    If Cells(i, "B").Value <> "" Then


End Sub