Vraag over Macro om rijen met lege cellen te verwijderen

[kippiebla]

In het voorbeeldbestand staan in Blad1 in kolom A data en in kolom B fruitsoorten. Nu wil ik graag iets maken dat de rijen die in kolom B leeg zijn, verwijderd worden. Het gewenste resultaat staat op Blad2. Zou iemand kunnen helpen?

 

[VenA]

Filteren op kolom B op lege cellen en dan de lege rijen verwijderen?

 

[kippiebla]

Ja klopt

 

[VenA]

Helder.

Sub VenA()
  On Error Resume Next
  Sheets("Blad1").Cells(3, 1).CurrentRegion.Columns(2).SpecialCells(4).EntireRow.Delete
End Sub

 

[kippiebla]

Dank VenA!