Remove duplicate and Sort

I have this code to remove duplicate but I want the result to be sorted. Can anyone help me to revised this code? Thank you.


Sub RemoveDups(rngDups As Range, Optional rngTarget As Range)
If rngTarget Is Nothing Then
rngDups.RemoveDuplicates Columns:=1, Header:=xlNo
Else
rngDups.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngTarget, Unique:=True
End If
End Sub

Sub Test()
Call RemoveDups(ActiveSheet.Range("A1:A100"), ActiveSheet.Range("D1"))
End Sub