Macro - Copy/Paste, Remove duplicates

[psrs0810]

I need to setup a marco that will copy column C in ws "DeptXref" and paste it into ws "Table Build" column D with only the first four numbers and then remove duplicates.

Thanks

 

[My Aswer Is This]

Why do you want to copy the entire column "C" but then only paste in the first four rows into column "D"

Why not just copy the first four cells in column "C"

 

[psrs0810]

I apologize if I miss stated.
in DeptXref column C, I have some departments with 4 digits and some with 5 digits. I need the first 4 digits for each cell which will create duplicates. From there, I need to remove those duplicates

 

[Fluff]

Hi
This assumes that your data starts in C1 & will paste into col D starting at D1

Sub Trim_removeDupes()

    Dim Cl As Range

    Sheets("DeptXref").Select
    With CreateObject("scripting.dictionary")
        For Each Cl In Range("C1", Range("C" & Rows.Count).End(xlUp))
            If Not .exists(Left(Cl.Value, 4)) Then .Add Left(Cl.Value, 4), Nothing
        Next Cl
        Sheets("Table Build").Range("D1:D" & .Count - 1) = Application.Transpose(.keys)
    End With

End Sub