arthurcd,

Bom Dia!

Em programação, os detalhes são importantíssimos! Desse modo, fica difícil desenvolver qualquer código para lhe ajudar, pois a descrição da sua necessidade é muito genérica. Por gentileza, compacte e anexe aqui um arquivo de exemplo de sua necessidade e detalhe, minuciosamente, a sua necessidade, como por exemplo: de onde vão sair os dados? qual aba? qual arquivo? a origem e o destino é no mesmo arquivo? é na mesma aba? em que linha se iniciam os dados? em que coluna se iniciam os dados? para onde vão os dados? na mesma? no mesmo arquivo? No destino, os dados serão cumulativos ou deverão ser apagados a cada nova rodada da macro? Como a macro deverá ser executada? através de um botão? através de formulários? autoamticamente?

Boa tarde!!

Veja se assim ajuda

Sub AleVBA_13422()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
        Range("F1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$E,MATCH($A1,$B:$B,0),1))"
        Range("G1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$E,MATCH($A1,$B:$B,0),2))"
        Range("H1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$E,MATCH($A1,$B:$B,0),3))"
        Range("I1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$E,MATCH($A1,$B:$B,0),4))"
        Range("F1:I1").AutoFill Destination:=Range("F1:I" & lastrow)
        Range("F1:I1" & lastrow).Value = Range("F1:I1" & lastrow).Value
        Columns("B:E").Delete
    Application.ScreenUpdating = True
End Sub

Att

Bom dia,

Perdão...vou postar aqui uma planilha com um exemplo...na aba1 da planilha esta o arquivo sem modificações...na aba2 esta o arquivo como eu gostaria que ficasse...

Como podem ver na coluna B os números perdem a sequencia após o número "00703112014-004" gostaria que ele pulasse as células quando se perdesse a sequencia assim como fiz na aba2...

Att,

Arthur

Boa tarde!!

Tente assim

Sub AleVBA_13422()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
        Range("O1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),1))"
        Range("P1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),3))"
        Range("Q1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),4))"
        Range("R1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),5))"
        Range("S1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),6))"
        Range("T1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),7))"
        Range("U1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),8))"
        Range("V1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),9))"
        Range("W1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),10))"
        Range("X1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),11))"
        Range("Y1").Formula = "=IF(ISNA(MATCH($A1,$B:$B,0)),"""",INDEX($B:$N,MATCH($A1,$B:$B,0),12))"
        
        Range("O1:Y1").AutoFill Destination:=Range("O1:Y" & lastrow)
        Range("O1:Y1" & lastrow).Value = Range("O1:Y1" & lastrow).Value
        Columns("B:N").Delete
    Application.ScreenUpdating = True
End Sub

Att

agora sim rs vlw

Boa tarde!!

Precisando é só falar

Att