Rodrigo Vianna

Bom dia pessoal, Entrei nesse fórum, pois estou a 2 dias tentando resolver um problema. Tenho uma lista de dados que estão confusos para leitura, mas seguem um padrão de formatação. Estou tentando transpô-los em uma nova planilha de uma forma mais fácil para analisar os dados. Tentei fazer um loop com "For", mas ele só consegue identificar a primeira linha de dados. Quando é para verificar a próxima ele não reconhece a minha condição. O programa roda, mas não identifica os dados seguintes. Segue o programa abaixo: For i = 2 To 50 If Left(Sheets("C").Range("A" & i), 6) = " Esta" Then Sheets("T").Range("A" & i).FormulaR1C1 = "='C'!RC" Sheets("T").Range("B" & i).FormulaR1C1 = "='C'!R[2]C[-1]" Sheets("T").Range("C" & i).FormulaR1C1 = "='C'!R[2]C[-1]" Sheets("T").Range("D" & i).FormulaR1C1 = "='C'!R[2]C[-1]" End If Next Estou aberto a outra opções. Agradeço a ajuda!! Obrigado