VBA代码表示以下内容，删除重复项保留唯一值

VBA代码表示以下内容，删除重复项保留唯一值‘工作表一！A列’（型号）保留唯一数据到 ‘工作表二！A列’。效果等同选中 ‘工作表一！A列’，删除重复项保留唯一值到 ‘工作表二！A列’。能够简化点简化点，谢谢(*°∀°)=3，我是小白。

试试以下代码
Sub 提取不重复数据()
    Application.ScreenUpdating = False
    Sheets(2).[a1:a65536].ClearContents
    Set d = CreateObject("scripting.dictionary")
        For i = 1 To [a65536].End(3).Row
            j = Cells(i, 1)
            If j <> "" Then
                If Not d.exists(j) Then d.Add j, j
            End If
        Next
        m = d.Items
        For n = 0 To d.Count - 1
            Sheets(2).Cells(n + 1, 1) = m(n)
        Next
    Application.ScreenUpdating = True
End Sub