Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E2:E10000")) Is Nothing Then
        If Range("E" & Target.Row) <> "" Then
           i = Cells(Split(Target.Address, "$")(2), 2)
           With Sheets("Лист1")
                For s = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
                    If .Cells(s, 2) = i Then
                       .Cells(s, 5) = "Гараж"
                       .Cells(s, 3) = ""
                       .Cells(s, 4) = ""
                    End If
                Next
          End With
        End If
    End If
end sub

=РАБДЕНЬ.МЕЖД(B1;C1-1;"0000000";$A$2:$A$12)

Private Sub Workbook_Open()
Application.OnTime TimeValue("08:25:00"), "макрос1"
Application.OnTime TimeValue("08:30:00"), "макрос2"
Application.OnTime TimeValue("16:00:00"), "макрос3"
Application.OnTime TimeValue("15:45:00"), "макрос4"
End Sub

Sub Test2()
Dim Rng As Range, rCell As Range
    Set Rng = Range("I2:I25")
    For Each rCell In Rng
        If IsEmpty(rCell) Or rCell = 0 Then
            MsgBox "найдено" & rCell.Address(0, 0), 64, "поиск"
            Exit For
        End If
    Next
End Sub