Problemas con el For en una macro

Hola a todos,
Estoy empezando con esto de las macros y del lenguaje VB y ahora mismo tengo un problemilla con la estructura de un For.
Mi objetivo consiste revisar todos los datos que haya en una columna, en este caso la F, y si tiene un valor determinado hacer que la celda coja un color determinado.
Había pensado en esta estructura, pero no veo el error (recuerdo que soy principiante;) )
Sub secuencia()
Dim i As Integer
Dim Fila As Integer
Columna = 6
For i = 13 To 200 Step 13
If ActiveSheet.Cells(Fila, 6).Value = "1" Then
   ActiveSheet.Cells(Fila, 6).Interior.ColorIndex = 33
    End If
If ActiveSheet.Cells(Fila, 6).Value = "2" Then
   ActiveSheet.Cells(Fila, 6).Interior.ColorIndex = 50
    End If
If ActiveSheet.Cells(Fila, 6).Value = "3" Then
   ActiveSheet.Cells(Fila, 6).Interior.ColorIndex = 45
    End If
If ActiveSheet.Cells(Fila, 6).Value = "" Then
   ActiveSheet.Cells(Fila, 6).Interior.ColorIndex = xlNone
    End If
Next i
Gracias a todos por vuestro tiempo