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

Maybe:

Sub dry()
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
Range("RH5:AJ1630").SpecialCells(4).Delete xlToLeft
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

Worked like a charm, thank you!

You're welcome. Glad to help out and thanks for the feedback.