Eu tenho um relatório que eu puxo todos os dias que é colocado em um formato muito estranho. Ele contém uma contagem de linhas variável por 4 colunas organizadas em tabelas não oficiais com base no nome de cada funcionário.

O que tenho é um nome de funcionário na coluna B precedido de 2 linhas em branco acima e seguido por 1 linha de dados em branco abaixo.

O que eu quero realizar é fazer um loop pelos dados, identificar as células na coluna B <> em branco, excluir as 2 linhas inteiras abaixo dessa célula e excluir as 1 linhas inteiras acima dessa célula.

Abaixo está o que eu tenho até agora. não muito:

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