I have a macro below to delete filtered rows on sheet "Sales Report"
It takes a very long time to run
It would be appreciated if someone could kindly amend my code
It takes a very long time to run
It would be appreciated if someone could kindly amend my code
Code:
Sub DeleteFilteredData ()
Dim LR As Long
With Sheets("Sales Report")
LR = Cells(Rows.Count, "A").End(xlUp).Row
If LR > 1 Then
Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
End With
End Sub