Define Range in Deleting Empty Rows

[HamishM]

Hi,
Am using the following code to remove empty rows. How can i set th
rows to be checked eg. A15:A2500


Sub DeleteBlankRows1()

Dim i As Long

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False

For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub


thanks,
Hamis

 

[Dave Peterson]

If you know the range:

Option Explicit
Sub DeleteBlankRows1A()

Dim i As Long
Dim rng As Range

Set rng = ActiveSheet.Range("a15:a2500") ' or Selection

With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False

For i = rng.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(rng.Rows(i)) = 0 Then
rng.Rows(i).EntireRow.Delete
End If
Next i

.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub