EndRow = LastRow(ColoredRow, ColoredColumn)
    Const Delta = 6
    With Cells(EndRow + Delta, 1)
        .Value = "Прибытие от 13 до 55 дней назад"
        .Font.ColorIndex = 13
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
    End With

Sub ColorCarArrive()

    Const ColoredRow = 8
    Dim EndRow As Long, ColoredColumn As Long
    
    Cells(3, 4).FormulaR1C1 = "=DATE(YEAR(R[-1]C),MONTH(R[-1]C),DAY(R[-1]C))"
    ColoredColumn = 3
    EndRow = LastRow(ColoredRow, ColoredColumn)
    With ActiveSheet.Range(Cells(ColoredRow, ColoredColumn), Cells(EndRow, ColoredColumn))
        .FormatConditions.Delete
        
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
            Formula1:="=$D$3-55", Formula2:="=$D$3-12"
        .FormatConditions(1).Font.ColorIndex = 13
       
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
            Formula1:="=$D$3-109", Formula2:="=$D$3-54"
        .FormatConditions(2).Font.ColorIndex = 3
        
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
            Formula1:="=$D$3-109"
        .FormatConditions(3).Font.ColorIndex = 45
    
    End With
    
    Const Delta = 6
    With Cells(EndRow + Delta, 1)
        .Value = "Прибытие от 13 до 55 дней назад"
        .Font.ColorIndex = 13
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
    End With
    
    With Cells(EndRow + Delta + 1, 1)
        .Value = "Прибытие от 55 до 100 дней назад"
        .Font.ColorIndex = 3
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
    End With

    With Cells(EndRow + Delta + 2, 1)
        .Value = "Прибытие от 110 дней и ранее"
        .Font.ColorIndex = 45
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
    End With
End Sub
Function LastRow(Row, Col) As Long
    Dim EndRow As Long
    EndRow = Cells(Row, Col).End(xlDown).Row
    If EndRow > 65535 Then EndRow = Cells(EndRow, Col).End(xlUp).Row
    LastRow = EndRow
End Function

Function LastRow(Row, Col) As Long
    Dim EndRow As Long
    EndRow = Cells(Row, Col).End(xlDown).Row
  Debug.Print EndRow
    If EndRow > 65535 Then EndRow = Cells(EndRow, Col).End(xlUp).Row
  Debug.Print EndRow
    LastRow = EndRow

End Function
Sub ColorCarArrive()

    Const ColoredRow = 8   '''ОЧЕНЬ СМУЩАЕТ, ЗАЧЕМ ЗАДАНО КОНСТАНТОЙ
    Dim EndRow As Long, ColoredColumn As Long