Sub timetable()
st1 = Range("B2")
et1 = Range("C2")
meeting1 = Range("A2")
Location1 = Range("D2")
Cells(st1, 2) = meeting1
Cells(st1, 3) = Location1
Range(Cells(st1, 2), Cells(et1 - 1, 3)).Interior.ColorIndex = 38

st2 = Range("B3")
et2 = Range("C3")
meeting2 = Range("A3")
Location2 = Range("D3")
Cells(st2, 2) = meeting2
Cells(st2, 3) = Location2
Range(Cells(st2, 2), Cells(et2 - 1, 3)).Interior.ColorIndex = 50

st3 = Range("B4")
et3 = Range("C4")
meeting3 = Range("A4")
Location3 = Range("D4")
Cells(st3, 2) = meeting3
Cells(st3, 3) = Location3
Range(Cells(st3, 2), Cells(et3 - 1, 3)).Interior.ColorIndex = 35

st4 = Range("B5")
et4 = Range("C5")
meeting4 = Range("A5")
Location4 = Range("D5")
Cells(st4, 2) = meeting4
Cells(st4, 3) = Location4
Range(Cells(st4, 2), Cells(et4 - 1, 3)).Interior.ColorIndex = 42
End Sub