Deleting Empty Cells

Hello,

I'm using this nested loop to delete and right shift, empty cells. Is there a more elegant way to code this that would execute faster?

' Delete Empty Cells
    
For Count = 1 To 4

For i = 1 To 50000

    If Range("A" & i).Value = blank Then
       Range("A" & i).Select
       ActiveCell.Delete shift:=xlToLeft
    End If
    
Next i
    
Next Count

Thank you.