Public Sub Unik_Filter()
    Const Title As String = "Вставка уникальных записей"
    Dim SRng As Range, PRng As Range, FRng As Range, VRows As Range, VCols As Range
    Dim Sh As Worksheet
    Dim N As Long, NF As Long, m As Long
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set SRng = Selection
    N = SRng.Rows.Count
    If SRng.Areas.Count > 1 Or N < 3 Then
        MsgBox "Исходный диапазон выбран неправильно.", vbExclamation, Title
        Exit Sub
    End If
    m = SRng.Columns.Count
    If WorksheetFunction.CountA(SRng.Rows(1)) < m Then
        MsgBox "Нет заголовка столбца.", vbExclamation, Title
        Exit Sub
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    SRng.Columns.Hidden = False
    SRng.AdvancedFilter xlFilterInPlace, , , True
End Sub