Transpose copying

[tabfri]

Hey guys,

so far I have this code:

Please Login or Register  to view this content.

I would need to expand this code that it does not only filter but also transposes the values it catches from Sheet1.

I would be really glad if someone could help me !

Thank you a lot in advance!

[patel45]

only one code line to understand problem ?

[tabfri]

You are right
Here the total code:
Const shAll As String = "All Data"
Const shAna As String = "Analysis"


With Sheets(shAll)
With .Range("B7", .Cells(Rows.Count, "b").End(xlUp))
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(shAna).Range("A8"), Unique:=True
End With
End With

End If

How can I expand this code that it does not only copy the certain range with unique values only but it also transposes it starting in Cell C3

Thank you guys

[patel45]

Replace A8 with C3

[tabfri]

But at the moment it is creating a vertical list and I would like to have a horizontal list.

[patel45]

attach a sample file with current and desired table