Hi Jetheat!

This is a pretty easy and common task. The trick here is to delete rows
bottom up. You may try the following macro, see the comments to make the
adjustments you need, and *SAVE* your workbook before playing with it:

Sub DeleteEmptyRows()
Dim i As Integer 'Long if last row number 32767

'Assuming the list is in the first worksheet
With ThisWorkbook.Worksheets(1)
'Substitute 1000 by the number of the last empty row
For i = 1000 To 1 Step -1
'Assuming data is on the first column
'Assuming first cell on the row is really empty
If .Cells(i, 1) = "" Then .Rows(i).Delete
Next i
End With
End Sub

Best,

Rafael

"Jetheat" wrote:


I have a list of email addresses in one single column.

This list is large so I need some way of shortcutting what I need to
do.

This entire column of email addresses is separated by 2 empty rows
between each email address.

1) Instead of clicking on each one and deleting them one by one, is
there a quicker method to delete all empty rows?

2) The list of email addresses is imported.
All the emaill addresses have a space in front of them. For example "
" Do you see the extra space in front of the email
address?

How do I remove that single space with some sort of shortcut for the
entire column?

Appreciate the help,

JH


--
Jetheat
------------------------------------------------------------------------
Jetheat's Profile: http://www.excelforum.com/member.php...o&userid=10073
View this thread: http://www.excelforum.com/showthread...hreadid=395116