Vereinfachung gesucht

Ich habe eine Tabelle mit Monaten. In Zeile 3 stehen
die Monate als Zahlen
(Januar (1) in Spalte B, Februar (2) in Spalte C, usw.)
In A1 befindet sich der aktuelle Monat April (4).
Nun möchte ich, dass bis und mit aktuellen Monat alle Spalten
einen gelben Hintergrund erhalten.

Ich löste es mit folgendem Makro, denke jedoch dass es
wesentlich einfacher gehen könnte.

Weiss jemand wie?

Sub Farbe2()
Monat = Range("B1").Value
Januar = Range("B3").Value

If Januar <= Monat Then
Columns("B:B").Select
Selection.Interior.ColorIndex = 6
Else
End If

If Januar + 1 <= Monat Then
Columns("C:C").Select
Selection.Interior.ColorIndex = 6
Else
End If

If Januar + 2 <= Monat Then
Columns("D:D").Select
Selection.Interior.ColorIndex = 6
Else
End If

usw....

End Sub