Macro to Delete Hidden Rows on Filtered Cells | VBA code to Delete Hidden Rows on Filtered Cells in Excel

1. Open active excel sheet 

2. Press Alt + F11 and Visual Basic Application window will open.

3. Go to Insert Menu and select new Module

.4. In new Module insert the below VBA Code and save it.

5. Before do the above process, excel sheet must save as Macro-Enabled.

6. To do Macro Enabled, open Excel Sheet and Click on the Office Button which is at left top corner on excel sheet.

7.  Select Save as and again select Macro Enabled Worksheet and then save it.

Sub DeleteBlankRows()

 

Dim x As Long

  

 With ActiveSheet

 

    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row _

 

        To 1 Step -1

  

         If WorksheetFunction.CountA(.Rows(x)) = 0 Then

 

            ActiveSheet.Rows(x).Delete

 

        End If

  

    Next

 

End With

 

 

 

End Sub