macro copiar linhas e colar ao lado em colunas

[matoso]

Pessoal, pesquisei bastante na internet, mas não consegui montar a seguinte macro:

Procura na célula A1 a palavra "Codigo", então seleciona E1 (onde tem a palavra código) até E9, onde começa outra palavra código e assim sucesivamente, após cole ao lado na mesma planilha.Segue um exemplo abaixo:

O QUE EU TENHO

Codigo: A54031 PRODUTO PAI A

002 A100 CONPONENTE 1 0,00 0,50000

002 A101 CONPONENTE 2 0,00 1,00000

002 A102 CONPONENTE 3 0,00 1,00000

003 A103 CONPONENTE 4 10,00 1,00000

004 A104 CONPONENTE 5 0,00 1,00000

005 A105 CONPONENTE 6 1,00 1,00000

006 A106 CONPONENTE 7 0,00 1,00000

Codigo: A540 PRODUTO PAI B

002 A100 CONPONENTE 30 0,00 0,50000

002 A101 CONPONENTE 31 0,00 1,00000

002 A102 CONPONENTE 32 0,00 1,00000

003 A103 CONPONENTE 33 10,00 1,00000

004 A104 CONPONENTE 34 0,00 1,00000

005 A105 CONPONENTE 35 1,00 1,00000

006 A106 CONPONENTE 36 0,00 1,00000

007 A107 CONPONENTE 37 0,00 1,00000

008 A108 CONPONENTE 38 0,00 1,00000

FIQUE ASSIM

Codigo: A54031 PRODUTO PAI A Codigo: A540 PRODUTO PAI B

002 A100 CONPONENTE 1 0,00 0,50000 002 A100 CONPONENTE 30 0,00 0,50000

002 A101 CONPONENTE 2 0,00 1,00000 002 A101 CONPONENTE 31 0,00 1,00000

002 A102 CONPONENTE 3 0,00 1,00000 002 A102 CONPONENTE 32 0,00 1,00000

003 A103 CONPONENTE 4 10,00 1,00000 003 A103 CONPONENTE 33 10,00 1,00000

004 A104 CONPONENTE 5 0,00 1,00000 004 A104 CONPONENTE 34 0,00 1,00000

005 A105 CONPONENTE 6 1,00 1,00000 005 A105 CONPONENTE 35 1,00 1,00000

006 A106 CONPONENTE 7 0,00 1,00000 006 A106 CONPONENTE 36 0,00 1,00000

007 A107 CONPONENTE 37 0,00 1,00000

008 A108 CONPONENTE 38 0,00 1,00000

[tropsfx]

Amigo.. você pode usar o transpor:

Exemplo:

Range("E1:E9").Select
Selection.Copy

Range("N1").select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Application.CutCopyMode = False

Só precisa trabalhar na busca dos códigos.