Sub DeleteRowsWithBlanks()
Range("A:A").SpecialCells(xlCellTypeBlanks).Entire Row.Delete
End Sub

HTH,
Bernie
MS Excel MVP


"One-Leg" wrote in message
...
Hello,

From cell A1 to A3500, I have many cells with infos in it and many cells
with no info at all. How can I create a macro that will delete the entire
row in which colomn A has no info???

In example:

A1: Test 1
A2:
A3:
A4:
A5: Test 2
A6:
A7: Test 3
A8:

I would like to create a macro that will automatically delete rows 2-3-4-6-8
and leave intact rows 1-5-7.

Thanks!!!