[SOLVED] deleting empty cells

NEVER MIND I FIGURED IT OUT, BUT THANKS ANYWAY.


I have data with empty cells throughout in a column. My goal is to erase the empty cells in the column with the data without disturbing the other columns and end up with no empty cells in between each piece of data. The problem is that the sub routine bellow is deleting all the cells including the ones with the data.

Sub erasewe()

For i = 1 To 10000
If IsEmpty(ActiveCell) Then
ActiveCell.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub