Remove Duplicates with or without Header

Sub RemoveDuplicates ()

ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo

' Without header

End Sub

Sub RemoveDuplicates ()

ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

' With header

End Sub