Dim time1, time2, time3, time4 As Range

    Set time1 = Range(Cells(5, 4), Cells(numDays + 4, 5))
    Set time2 = Range(Cells(5, 6), Cells(numDays + 4, 7))
    Set time3 = Range(Cells(5, 8), Cells(numDays + 4, 9))
    Set time4 = Range(Cells(5, 10), Cells(numDays + 4, 11))

With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With