Macro to highlight columns with unknow rows

[Apple08]

Hi All

I like to create a macro to highlight the columns in the sheet "Data" starting from row 2 to the last row which is unknow. The last row could be based on the value in column A.

I would like to highlight colour RGB as below:

D and E - 155, 194, 230
J and K - 255, 242, 204
L and M - 221, 235, 247

Thanks for any help.

 

[Fluff]

How about

Sub Apple()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Offset(, 3).Resize(, 2).Interior.Color = RGB(155, 194, 230)
      .Offset(, 9).Resize(, 2).Interior.Color = RGB(255, 242, 204)
      .Offset(, 11).Resize(, 2).Interior.Color = RGB(221, 235, 247)
   End With
End Sub

 

[Apple08]

How about

Sub Apple()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Offset(, 3).Resize(, 2).Interior.Color = RGB(155, 194, 230)
      .Offset(, 9).Resize(, 2).Interior.Color = RGB(255, 242, 204)
      .Offset(, 11).Resize(, 2).Interior.Color = RGB(221, 235, 247)
   End With
End Sub

Brilliant! It works perfectly! Thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback.