Требуется выделить и закрасить столбец под определённой шапкой. Проблема состоит в том, что шапка может состоять из нескольких объединенных столбцов, и при выполнение следующего кода:  
Sub example()  
Dim r As Range  
For Each r In ActiveSheet.UsedRange  
If r.Value Like "Плановый год*" Then  
With Range(r, r.End(xlDown)).Interior  
.ThemeColor = xlThemeColorAccent6  
.TintAndShade = 0.799981688894314  
End With  
End If  
Next r  
End Sub  
 
Выделяется лишь один из подстолбцов под шапкой, а надо, чтобы выделились все. Как обратиться ко всем столбцам?