Removing Duplicates

[Haree]

Hello All, I am quite new to vba and learning one by one. Kindly excuse me if this is a very elementary question and forgive me for my ignorance.
Basically I have a macro which adds names to Column A sorts it in ascending order and then removes duplicates. I am attaching the code below. Everything works fine except for removing duplicates.
Your help would be greatly appreciated . Thanks in advance

Sub Button1_Click()
Application.ScreenUpdating = False
Dim lastrow As Long, name As Range
Set name = Worksheets("Names").Range("J7")

Worksheets("Names").Select
    If name <> "" Then
        name.Copy
        lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & lastrow + 1).Select
        ActiveSheet.PasteSpecial xlPasteAllExceptBorders
    End If

Worksheets("Names").Sort.SortFields.Clear
Range("A" & lastrow).Sort , Key1:=Range("A1"), order1:=xlAscending, Header:=xlYes

ActiveSheet.Range("A1", "A" & lastrow).RemoveDuplicates , Header:=xlYes
name.Select
Application.ScreenUpdating = True
End Sub

 

[alansidman]

Here is some code for removing dupes

Sub Rmv_Dupe_Rows()

    Application.ScreenUpdating = False

    Dim clmn As String
    Dim col As Long

'   Prompt for column letter
    clmn = Application.InputBox("Enter the letter designating" & vbCrLf & "the column where the duplicate" & vbCrLf & "data is located.")
'   Convert to column number
    col = Cells(1, clmn).Column
    
    ActiveSheet.UsedRange.RemoveDuplicates Columns:=col, Header:=xlGuess
    
    Application.ScreenUpdating = True
End Sub

 

[Haree]

Thank you @alansidman . I had to use .RemoveDuplicates columns: , I had skipped the columns part. Thank you for your help