[Tasos]

Καλημέρα!

Για τη διαγραφή γραμμών με βάση τα κενά κελιά στη στήλη Β θα πρότεινα:

    With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 1)
        If WorksheetFunction.CountBlank(.Cells) Then
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End If
    End With

Καλή συνέχεια σε όλους!

Τάσος