você quer colorir a Coluna correto?

as colunas de A até M?

Positivo na linha em que constar a palavra TOTAL colorir de A a M

Ufa depois de muita pesquisa e tentativas, consegui o que precisava

Esse código deu conta do recado

Dim vResultado As Boolean
Dim vContador As Long
Ultima_Linha = Range("A65536").End(xlUp).Row

For i = 1 To Ultima_Linha
Range("A" & i).Select
vResultado = Range("A" & i).Value Like "*Total*"

If vResultado Then
Range("a" & CStr(i)).Resize(, 13).Interior.ColorIndex = 35
Range("a" & CStr(i)).Resize(, 13).Font.ColorIndex = 3

vContador = vContador + 1
End If

Next
[c1].Select