Dim zelle As Range
For Each z In ActiveSheet.Range("E150:E250")
If IsEmpty(z.Value) = True Then
z = z.Offset(0, -2)
End If
Next z

Dim global_var_calc_state As Integer, global_var_calc_bfr_sv_state As Boolean

Sub Kakoetonazvanie()
    Call uskorenie

    Dim zelle As Range
    For Each Z In ActiveSheet.Range("E150:E250")
        If IsEmpty(Z.Value) = True Then
            Z = Z.Offset(0, -2)
        End If
    Next Z

    Call neuskorenie
End Sub

Sub uskorenie()
    With Application
        global_var_calc_state = .Calculation
        global_var_calc_bfr_sv_state = .CalculateBeforeSave
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
        .DisplayStatusBar = False
        .DisplayAlerts = False
    End With
End Sub
Sub neuskorenie()
    With Application
        .Calculation = global_var_calc_state    ' xlCalculationAutomatic
        .CalculateBeforeSave = global_var_calc_bfr_sv_state
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayStatusBar = True
        .DisplayAlerts = True
    End With
End Sub

Sub test_zelle_1()
    Dim z As Range, rngEmp As Range
    
    On Error Resume Next
    Set rngEmp = ActiveSheet.Range("E150:E250").SpecialCells(xlCellTypeBlanks)
    If Err Then
        Err.Clear
        Exit Sub
    End If
    On Error GoTo 0
    
    For Each z In rngEmp.Cells
        z = z.Offset(0, -2)
    Next z
End Sub