Hallo Jens,

mit dem Funktionspart EntireColumn färbst Du ja immer die gesamt Spalte.

Hier mal ein Beipielcode, der nur einen Teil der Spalte einfärbt. Hierbei musst Du entscheiden, ob nur der belegte Teil gefärbt wird oder die gesamte Restspalte..

Sub ColorColumns()

Dim c As Range
Dim m As Date
Dim iZeile As Long
Dim oBer As Range
m = Now()

 With ThisWorkbook.Sheets("FC Data")
    For Each c In .Range("G13:Z13").Cells
'        iZeile = .Cells(Rows.Count, c.Column).End(xlUp).Row 'nur belegte Zeilen
'        if iZeile<17 then iZeile=17
        iZeile = .Rows.Count                               'alle Zeilen
        Set oBer = Range(.Cells(17, c.Column), .Cells(iZeile, c.Column))
        If c.Value < DateAdd("m", 2, m) Then
           oBer.Interior.ColorIndex = 3
        ElseIf c.Value < DateAdd("m", 3, m) Then
           oBer.Interior.ColorIndex = 6
        End If
    Next c
 End With
 
End Sub

viele Grüße

Karl-Heinz