amsviana

Pessoal, tenho uma planilha que estou tentando fazer uma regra para concatenar e criar uma Base de Informação. Tenho uma planilha que na coluna "A", sem pre aparece qual o item contabil, ex: ITEM CONTABIL 01 1.11.01.001 1.11.01.002 1.11.01.003 . . . ITEM CONTABIL 02 1.11.01.001 1.11.01.002 1.11.01.003 . . . TOTAL DO PERIODO Bem quero que toda vez que ele encontrar o "ITEM CONTABIL", ele extraia para a "coluna b" os dois ultimos caracterres, e faça a concatenação até o proximo "ITEM CONTABIL" e que finalize o "Loop" quando encontrar o texto "TOTAL DO PERIODO" na "coluna a". eu consegui desenvolver até aqui: Range("a1").Select While ActiveCell.Value <> "ITEM CONTA : 01" ActiveCell.Offset(1, 0).Range("a1").Select Wend ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=MID(RC[-1],17,2)" ActiveCell.Offset(1, 0).Select For LIN = 1 To 1000 Do If IsEmpty(ActiveCell) Then If IsEmpty(ActiveCell.Offset(0, -1)) Then ActiveCell.Value = "" Else ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-1],""-"",""01"")" End If End If ActiveCell.Offset(1, 0).Select Loop Until IsEmpty(ActiveCell.Offset(0, 1)) Next End Sub Agradeço a ajuda!