vbacode to delete blank rows

[jericho14444]

Does anyoneknow a simple vba code to delete blanks rows?
Thank you

[patel45]

Sub delblank()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[HaHoBe]

Hi. patel45,

running that code will have 2 carvats: it considers the full length of Column A and all empty cells below the used range if so avoids the run time error when no empty cells are found in the area.

Sub delblank()
On Error Resume Next
ActiveSheet.UsedRange.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
If Err Then
  MsgBox "No blank cells"
End If
End Sub

Ciao,
Holger