Sub Test()
Dim iLastRow As Long
Dim i As Long
Dim rng As Range

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Application.CountA(Rows(i)) = 0 Then
If rng Is Nothing Then
Set rng = Rows(i)
Else
Set rng = Union(rng, Rows(i))
End If
End If
Next i

If Not rng Is Nothing Then
rng.Delete

End If

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Nimesh Shastri" <Nimesh wrote in message
...
Dear Sir

How can I make a macro which will delete all the Blank rows from a data
before pasting it in Excel