Function A_test()
Worksheets("test").Cells(1, 1) = 1
End Function

With Sheets(ActiveSheet.Name)
    lrSh = .Columns().Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues).Row '
    lcSh = .Rows().Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues).Column '
    arr = .Range(.Cells(1, 1), .Cells(lrSh, lcSh))
    lrArr = UBound(arr, 1)
    lcArr = UBound(arr, 2)
End With

Up_16_Symbol = Cells(2, 1)

A = Array(Range("a1:b2"))
Cells(1, 4) = A(3)

Sub Макрос1()
    Selection.Cut Destination:=Range("B2")
    Range("B2").Select
    Selection.Cut
    Range("A2").Select
    ActiveSheet.Paste
End Sub

  n = ActiveSheet.Name
  t = ActiveCell.Column
  m = Split(ActiveCell.Address, "$")(1) '
  lr = Sheets(n).Columns(t).Find("*", [m&1], SearchDirection:=xlPrevious, LookIn:=xlValues).Row '

Sub Макрос1()

    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A3:A1001").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "C3"), Unique:=True
End Sub

NameSheetResult = "Sheets(""" + CStr(Mid(ArRsQinput, 2, ScreamerPosition - 2)) + """)"

    
    Range(NameSheetResult.Cells(TopRowForArr, ColumnForArr), NameSheetResult.Cells(BottomRowForArr, ColumnForArr + tCmAX - 1)).Value = ArRsA

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("a:xfd")) Is Nothing Then 'включает макрос при выделении ячеек
Cells(1, 1) = 2'переделай на переход к выполнению следующего макроса
End If
End Sub

Sub ЦиклВыбораТипаИнвТехники()
Dim ArrVtypInum
Sheets("Source").Select
ArrVtypInum = Sheets("Source").Range(Cells(5, 1), Cells(1000, 3)).Value 'обработывать только 1,3,5 столбики
End Sub