[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

Hi Truss123, perhaps the following?

Sub erasewe()

    Dim Ws As Worksheet
    Dim RngToSearch As Range, rc As Range
    
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Sheet1")
    Set RngToSearch = Ws.Range(Ws.Cells(1, ActiveCell.Column), Ws.Cells(1000, ActiveCell.Column))
    
    For Each rc In RngToSearch
        If IsEmpty(rc) Then
            rc.Delete shift:=xlUp
        End If
    Next rc
    Application.ScreenUpdating = True

End Sub