I want to color a range between two columns, to the last row. Columns are figured via the macro, but I don't know how to use that info to set the range object.

Below are the pertinent pieces of my code as it currently exists, with my offending line in red. Any help I can get in straightening this one out is highly appreciated. 
 MFRmo = Wb.Sheets("Start Tab").Range("G2").Value 'what's our MFR month?

        Select Case MFRmo
        Case "1"
            Result = "H"
        Case "2"
            Result = "I"
        Case "3"
            Result = "J"
        Case "4"
            Result = "K"
        Case "5"
            Result = "L"
        Case "6"
            Result = "M"
        Case "7"
            Result = "N"
        Case "8"
            Result = "O"
        Case "9"
            Result = "P"
        Case "10"
            Result = "Q"
        Case "11"
            Result = "R"
        Case "12"
            Result = "S"
        End Select
        
        Set RngFound = .Cells.Find(What:="Projected")
        If Not RngFound Is Nothing Then
            Proj = RngFound.Column
        End If

        'Color our expense headings Peach
        .Range("A1").AutoFilter Field:=3, Criteria1:="=Category"
        .Range("H1:" & Result & LastRow).SpecialCells(xlCellTypeVisible).Interior.Color = RGB(252, 213, 180)
Stop
        'Color our projection headings Blue
        .Range(.Range(Result & Rows(1)).Offset(0, 1), .Columns(Proj)).SpecialCells(xlCellTypeVisible).Interior.Color = RGB(183, 222, 232)        
        
        'Take off the autofilter
        .AutoFilterMode = False