The following code, placed in a module by itself, will do the trick. You pass in the column numbers and row numbers. You can easily adapt this to take the columns as letters ("F"-"H") rather than numbers (6'8).
THANKS TO RICHARDSCHOLLAR
Option Explicit
Sub test()
ColorCells 6, 7, 8, 13
End Sub
Function ColLet(piNum As Integer) As String
ColLet = Split(Cells(1, piNum).Address(, False), "$")(0)
End Function
Sub ColorCells(piStartCol As Integer, piStartRow As Long, _
piStopCol As Integer, piStopRow As Long)
Dim sStartLet As String
Dim sStopLet As String
sStartLet = ColLet(piStartCol)
sStopLet = ColLet(piStopCol)
Range(sStartLet & piStartRow & ":" & sStopLet & piStopRow).Select
Selection.Interior.ColorIndex = 44
Selection.Interior.Pattern = xlSolid
End Sub
--Doug