Sub p1050045()
For x = 1 To Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Rows.Count ' перебор всех строк
    ActiveSheet.Cells(x, 1).Select ' выделение ячейки в крайнем правом столбце
    With Selection.Font
        ' раскрашиваем ячейку в зависимости от значения во втором столбце
        .Color = -1003520 ' голубой
        If Cells(x, 2) < 1000 Then .Color = -16776961 ' красный
        If Cells(x, 2) > 5000 Then .Color = -10477568 ' синий
    End With
Next x
End Sub