Sub Уникальные()
Application.ScreenUpdating = False 'отключаем обновление экрана
Application.Calculation = xlCalculationManual  'Отключаем автопересчет формул
Application.EnableEvents = False  'Отключаем отслеживание событий
ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False 'Отключаем разбиение на печатные страницы
Dim myRange As Range, myCell As Range, myCollection As New Collection, _
myElement As Variant, i As Long
Set myRange = Range("J19:J22222")
On Error Resume Next
For Each myCell In myRange
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell
On Error GoTo 0
For Each myElement In myCollection
i = i + 1
Cells(i, 16) = myElement
Next myElement
          Columns("P:P").Select

       ' закрыть Макрос
Workbooks("макрос.xlsm").Close SaveChanges:=False
Application.ScreenUpdating = True  'Возвращаем обновление экрана
Application.Calculation = xlCalculationAutomatic   'Возвращаем автопересчет формул
Application.EnableEvents = True   'Включаем отслеживание событий
End Sub