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