Tengo un informe que obtengo todos los días que se coloca en un formato muy extraño. Contiene un recuento de filas variable por 4 columnas organizadas en tablas no oficiales basadas en el nombre de cada empleado.

Lo que tengo es un nombre de empleado en la columna B precedido de 2 filas en blanco arriba y seguido de 1 fila en blanco de datos a continuación.

Lo que quiero lograr es recorrer los datos, identificar celdas en la columna B <> en blanco, eliminar las 2 filas enteras debajo de esa celda y eliminar toda la fila 1 encima de esa celda.

A continuación se muestra lo que tengo hasta ahora. no mucho:

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