Color Non-Adjacent Columns from Header to Last Active Cell

[cr2289]

Hello All. I have a spreadsheet where I need to color non-adjacent columns from the column header down to the last active cell. I'm using the VBA below but it's only coloring the header. There are multiple ranges but I'll just show the first two. There are no values in the columns and I just need the shading. This has worked for years and now it doesn't. What am I doing wrong? Please help.

Dim IR As Long
IR = Cells(Rows.Count, "A").End(xlUp).Row
Range("G1:G" & IR).Interior.ColorIndex = 20
Range("I1:I" & IR).Interior.ColorIndex = 20
End Sub

 

[JoeMo]

Are there values in col A beyond the header? If not then lR = 1 and your ranges are confined to the 1st cell in the column.

 

[Rick Rothstein]

I think this macro will work for you...

Sub cr2289()
  Dim IR As Long
  IR = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  Intersect(Range("G:G,I:I"), Range("1:" & IR)).Interior.ColorIndex = 20
End Sub

 

[cr2289]

I think this macro will work for you...

Sub cr2289()
  Dim IR As Long
  IR = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  Intersect(Range("G:G,I:I"), Range("1:" & IR)).Interior.ColorIndex = 20
End Sub

Thank you so much! Worked wonderfully!