پاک كردن ردیف های خالی در اکسل

[ali.b]

Sub DeleteEmptyRows()
'
'This macro will delete all rows, which are missing data in a 
'particular column, underneath and including the selected cell.
'
Dim Counter
Dim i As Integer
Counter = InputBox("Enter the total number of rows to process")
ActiveCell.Select
For i = 1 To Counter
If ActiveCell = "" Then
Selection.EntireRow.Delete
Counter = Counter - 1
Else
ActiveCell.Offset(1, 0).Select
End If

Next i
End Sub