Visual Basic para Aplicaciones - EXCEL Y VISUAL

NECESITO AYUDA CON ESTO:

NECESITO IMPLEMENTAR UN CICLO QUE LEA EL VALOR DE LA CELDA DESDE LA A21 HASTA LA A65536, QUE CUANDO EL VALOR DE LA CELDA SEA = "CREDITO" HACER LO PRIMRO


formato = Cells(fila_formatos, COLUMNA)
If Len(formato) > 0 Then
tema = Right(Space(Cells(fila_largos, COLUMNA)) + Format(Cells(fila, COLUMNA), formato), Cells(fila_largos, COLUMNA))
Else
tema = Left(LTrim(RTrim(Cells(fila, COLUMNA))) + Space(Cells(fila_largos, COLUMNA)), Cells(fila_largos, COLUMNA))
End If

SINO HACER ESTO

formato = Cells(fila_formatos1, COLUMNA)
If Len(formato) > 0 Then
tema = Right(Space(Cells(fila_largos1, COLUMNA)) + Format(Cells(fila, COLUMNA), formato), Cells(fila_largos1, COLUMNA))
Else
tema = Left(LTrim(RTrim(Cells(fila, COLUMNA))) + Space(Cells(fila_largos1, COLUMNA)), Cells(fila_largos1, COLUMNA))
End If
FIN.........

ES URGENTE: GRACIAS POR SU COLABORACION

Hola Colega
sabes usar la sentencia "FOR....NEXT"
iniciamos una veriable tipo entera desde el numero de celda q quieres y termina donde quieras OK

For I = 21 to 65536
If Range("A" & I) = "CREDITO " then
HACER LO PRIMRO
Else
SINO HACER ESTO
End If
Next I