Sub Otbor()

' отбор текущего параметра
    curr_row = ActiveCell.Row
    curr_col = ActiveCell.Column
    curr_last = ActiveCell.SpecialCells(xlLastCell).Row
    Set ns = ActiveSheet
    
    Cells(curr_row, curr_col).Select
            name_str = Cells(curr_row, curr_col).Value
            If IsError(name_str) Then
                If name_str = CVErr(xlErrNA) Then name_str = ""
                    If ActiveCell.Text Like "[#]*" Then
                        ' Фильтр на ошибки
                        Select Case ActiveCell.Text
                            Case "#ДЕЛ/0!"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#ДЕЛ/0!"
                                Exit Sub
                            Case "#Н/Д"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#Н/Д"
                                Exit Sub
                            Case "#ИМЯ?"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#ИМЯ?"
                                Exit Sub
                            Case "#Имя!"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#Имя!"
                                Exit Sub
                            Case "#ЧИСЛО!"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#ЧИСЛО!"
                                Exit Sub
                            Case "#ССЫЛКА!"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#ССЫЛКА!"
                                Exit Sub
                            Case "#ЗНАЧ!"
                                Selection.AutoFilter Field:=curr_col, Criteria1:="#ЗНАЧ!"
                                Exit Sub
                        End Select
                    End If
            End If
                If name_str <> "" Then
                            If IsDate(name_str) Then
                                d1 = Trim(str(Day(name_str)))
                                If Len(d1) = 1 Then
                                    d1 = "0" + d1
                                End If
                                m1 = Trim(str(Month(name_str)))
                                If Len(m1) = 1 Then
                                   m1 = "0" + m1
                                End If
                                y1 = Trim(str(Year(name_str)))
                                If Len(y1) = 1 Then
                                    y1 = "0" + y1
                                End If
                                cr1 = "=" + y1 + m1 + d1
                                Cells(curr_row, curr_col).Select
                                Selection.AutoFilter Field:=curr_col, Criteria1:=cr1
                            Else
                                    Criteria1_ST = Cells(curr_row, curr_col).Value
                                    If IsNumeric(Selection.Value) Then
                                        cr1 = Trim("=") + Trim(str(Criteria1_ST))
                                        Selection.AutoFilter Field:=curr_col, Criteria1:=cr1
                                    Else
                                        Selection.AutoFilter Field:=curr_col, Criteria1:="=" + LTrim(Criteria1_ST), Operator:=xlAnd
                                    End If
                            End If
                Else
                            Selection.AutoFilter Field:=curr_col, Criteria1:="="
                End If
    Cells(curr_row, curr_col).Select
End Sub

Sub CountFunctionName()
   Dim sFormulaName As String, CFN As Integer, i As Integer
   Dim sFunctionName As String
   
   sFunctionName = "COLUMN" '"СТОЛБЕЦ"
   sFormulaName = ActiveCell.Formula
   CFN = 0
   For i = 1 To Len(sFormulaName)
        If Mid(sFormulaName, i, Len(sFunctionName)) = sFunctionName Then CFN = CFN + 1
   Next i
   If CNF > 0 Then CNF = CNF + 1
   MsgBox "В этой ячейке количество функций " & sFunctionName & ": " & CFN
End Sub

Function SizeCell(CurrCell)
    ActiveCell.RowHeight = CurrCell
End Function

Sub Command_Com_Tor()
    curr_row = ActiveCell.Row
    curr_col = ActiveCell.Column
    command_dos = Cells(ActiveCell.Row, ActiveCell.Column).Value
    x = Shell("""C:\Tor Browser\Browser\firefox.exe""" & """" & command_dos & """", vbNormalNoFocus)
End Sub

Application.Goto Reference:=ActiveCell.Address(ReferenceStyle:=xlR1C1) & "," & ActiveCell.EntireRow.Address(ReferenceStyle:=xlR1C1)