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

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.

VBA Code: 

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