How to clean up this conditional formatting code

[RockandGrohl]

Hi guys, believe it or not, this is my first time applying conditional formatting via VBA.

It looks a bit whacky, but I have four columns equally spaced apart and I want to apply four separate colour scale conditional formats to them (red = low, green = high)

Using the macro recorder gave me a bit of a mess, and I've cleaned it up a bit but am wondering if it can be made better?

' Conditional Formatting Rule
Cells.FormatConditions.Delete


Range("Q4").Activate

Dim cfrng As Range
Set cfrng = Range(Cells(4, ActiveCell.Column + 0), Cells(Lastrow + 1, ActiveCell.Column + 0))

x = 1
For x = 1 To 4
With cfrng
    .FormatConditions.AddColorScale ColorScaleType:=3
    .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    With cfrng.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
    .FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
    .FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With cfrng.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    .FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    With cfrng.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With

ActiveCell.Offset(0, 11).Activate
Next x

Thanks!

 

[Fluff]

How about

For x = 0 To 45 Step 11
   With cfrng
       .Offset(, x).FormatConditions.AddColorScale ColorScaleType:=3
   End With
Next x

 

[RockandGrohl]

How about

For x = 0 To 45 Step 11
   With cfrng
       .Offset(, x).FormatConditions.AddColorScale ColorScaleType:=3
   End With
Next x

Lol. I'm gonna start calling you the compressor. You take the goobledegook I write and compress it down to literally five lines haha.

What's with this by the way?

For x = 0 To 45 Step 11

 

[Fluff]

It's to offset the CF range in 11 column steps. So it starts on col Q then offset 11 cols to AB, AM etc