Transpose copying

Hey guys,

so far I have this code:

.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Sheet1").Range("A3"), Unique:=True

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!