Paste and transpose based Header

[marreco]

Hi

i try copy and trasnpose data, but doesn't work.

look my file

Thanks

[AB33]

I do not know the logic for transposing, but this code is hard coded

Sub wRONG()
    Dim wsSrc As Worksheet
    Dim wsDst As Worksheet
     
    Set wsSrc = Worksheets("Planilha1")
    Set wsDst = Worksheets("Planilha2")
     wsSrc.Range("B2,D2,H2,J2,L2").Copy
   ' wsSrc.Range("B2,D2,F2,H2,J2,L2").Copy
    wsDst.Range("A4").PasteSpecial xlPasteValues, Transpose:=True
     
    wsSrc.Range("C2,E2,G2").Copy
    wsDst.Range("B4").PasteSpecial xlPasteValues, Transpose:=True
    
    wsSrc.Range("I2,K2,M2").Copy
    wsDst.Range("C6").PasteSpecial xlPasteValues, Transpose:=True
    
    Application.CutCopyMode = False
     
End Sub

[marreco]

i found it in http://www.ozgrid.com/forum/showthread.php?t=33951
make by norie

Thank you!!