Copy unique value form one sheet to another sheet

Dear all, I have recorded a macro that is for copy unique value form one sheet to another sheet . Here is macro that I recorded , it works very well for my case but problem is that it is very slower .Would you please help me with faster macro ?

Sub tsgmac()
'
' Macro2 Macro
'

    Sheets("tsg").Select
    Columns("A:A").Select
    Range("A1:A34455").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("test").Select
    Sheets("test").Name = "test"
    Range("A1").Select
    ActiveSheet.Paste
End Sub
' please note that the range Range("A1:A34455") is not fixed as it may vary based on data that i will past manually

Hi Richard Buttrey , thanks for replay , yes your second option is best to Remove Duplicates form ribbon is fastest.would you please check the code for more shorter ? if not then i will work on it..

Sub rmduplicate()
Dim lrow As Long
With Worksheets("TSG")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1:AD" & lrow).Copy Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Offset(0, 0)
 End With

Sheets("Report").Select
    Columns("A:A").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$AD$34455").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub
' please note that the range Range("A1:A34455") is not fixed as it may vary based on data that i will past manually

Option Explicit

Sub rmduplicate()
Dim lrow As Long
With Worksheets("TSG")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1:AD" & lrow).Copy Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Offset(0, 0)
 End With
   Sheets("Report").Range("A1:AD" & Range("A" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

Hi AB33 , thanks for reply. it works perfectly..