Highlight columns to end of data macro

[KEdwards]

I need a macro code that will:

1 - Highlight merged field at A3 to D3
2 - Find end of data in column H and then move down 1 rows and right 2 columns to highlight (Blue) J4 and K4 down the column to the end of that data at the left. Example: Highlight J4 & K4 down to J52 and K52 if that is where the end of data stops in H51.
3 - Then move down 2 more rows and back to I? and highlight (yellow) I, J and K.

Example

 

[DanteAmor]

Hi and welcome to MrExcel.

Try this:

Sub Macro7()
  Dim lr As Long
  lr = Range("H" & Rows.Count).End(3).Row + 1
  Range("A3:D3, J4:K" & lr).Interior.Color = 16751001
  Range("I" & lr + 2 & ":K" & lr + 2).Interior.Color = 65535
End Sub

 

[KEdwards]

Sub Macro7() Dim lr As Long lr = Range("H" & Rows.Count).End(3).Row + 1 Range("A3:D3, J4:K" & lr).Interior.Color = 16751001 Range("I" & lr + 2 & ":K" & lr + 2).Interior.Color = 65535 End Sub

Thank you sooooo much. Works perfectly!

 

[DanteAmor]

Hi KEdwards, You marked your answer as a solution. You must mark the answer that solves your question. Unless your own answer is the solution.