Delete and shift cells left - need a faster code

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