Sub RemoveDuplicateData()
Dim MyRange As String
Worksheets("Input").Select
Columns("A:A").Select
Selection.Copy
Worksheets("Output").Select
Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").Select
MyRange = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Address
ActiveSheet.Range(MyRange).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub