Olá, pessoal! Estou precisando do conhecimento de vocês, por favor. Tenho várias planilhas gigantes com linhas contendo motivos e colunas contendo os anos. Então, construí as macros abaixo para percorrer a coluna, mas não sei fazer a macro funcionar na coluna seguinte e automatizada (loop). Tenho que:

1 - classificar as colunas da B até a coluna P, contendo cada coluna os valores >0,5.

Sub maior()
'
' maior Macro
'

    Range("B2:B75").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=0,5"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

2 - classificar as colunas da Q até a coluna BX, contendo cada coluna os 5 maiores valores.

Sub maior5()
'
' maior5 Macro
'

'
    Range("Q2:Q75").Select
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .TopBottom = xlTop10Top
        .Rank = 5
        .Percent = False
    End With
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Aguardo retorno e agradeço-lhes. Marciana