delete blank rows in excel using VBA

How to delete blank rows in excel using VBA?

Welcome to VBAX Alqahtanir. You could try the following code

Code:

---

Public Sub DeleteBlankRows()
  Dim SourceRange As Range
  Dim EntireRow As Range
  Set SourceRange = Application.Selection
  If Not (SourceRange Is Nothing) Then
    Application.ScreenUpdating = False
    For I = SourceRange.Rows.Count To 1 Step -1
        Set EntireRow = SourceRange.Cells(I, 1).EntireRow
        If Application.WorksheetFunction.CountA(EntireRow) = 0 Then
            EntireRow.Delete
        End If
    Next   
    Application.ScreenUpdating = True
  End If
End Sub

---