Delete and shift cells left - need a faster code

Hello! I want to delete all empty cells in a row, and if that cell is empty I want to shift the row left.
This is what I have so far:

Private Sub CommandButton22_Click()

 Dim Cell As Range
    
    For Each Cell In Range("rh5:aji630")
    
        If Cell.Value = "" Then
        Cell.delete shift:=xlToLeft
        
        End If
    Next Cell
    
End Sub

Problem is that this process takes an incredible amount of time.
I am wondering if anyone can help me change the code so that it runs better and faster?

/Dry