Public Function GetGUID() As String 
    GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) 
End Function 

using ExcelDna.Integration;

public class MyFunctions
{
    [ExcelFunction(Description="Multiplies two numbers", Category="Useful functions")](ExcelFunction(Description=_Multiplies-two-numbers_,-Category=_Useful-functions_))
    public static double MultiplyThem(double x, double y)
    {
        return x * y;
    }
}

Public Sub Baza()
    Dim lo As ListObject
    Dim ws As Worksheet
    Dim iRow As Long
    Dim value() As Variant
    Dim newrow As ListRow
    
    Const sh1 As String = "База"
    Const sh2 As String = "Закрытые"
    
    Set ws = ThisWorkbook.Worksheets(sh1)
    Set lo = ws.ListObjects("База")
    value = lo.DataBodyRange.Value2
          
    Set ws = ThisWorkbook.Worksheets(sh2)
    Set lo = ws.ListObjects("Закрытые")
    
    For iRow = LBound(value) To UBound(value)
        If value(iRow, 1) Like "Закрыт" Then
            Set newrow = lo.ListRows.Add
            newrow.Range.Cells(1, 3).Value2 = value(iRow, 2)
            newrow.Range.Cells(1, 5).Value2 = value(iRow, 4)
            newrow.Range.Cells(1, 7).Value2 = value(iRow, 3)
            newrow.Range.Cells(1, 9).Value2 = value(iRow, 5)
        End If
    Next iRow
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B11:H22")) Is Nothing Then
        Exit Sub
    End If
    Range("A2").Value2 = Selection.Row
End Sub

Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
'ActiveSheet.Paste Range("A1") сюда пишите куда вставлять

=CALCULATE(DISTINCTCOUNT('ПРОДАЖИ_ВСЕ'[Признак конс/прод]))

=ВПР($B1;$H$5:$I$25;2;ЛОЖЬ)

Sub test()
    Dim v() As Variant, v1() As Variant
    Dim ws As Worksheet
    Dim rg As Range
    Dim i As Long
    Dim ii As Long
    Const s As String = "Имя контрагента"
    Const s1 As String = "Количество покупок"
    Const s2 As String = "Общая сумма покупок"
    
    Set rg = Selection
    v = rg.Value2
    ii = 1
    ReDim v1(1 To 1000, 1 To 3)
    For i = LBound(v) To UBound(v)
        If v(i, 2) > 50 And v(i, 3) > 16000 Then
            v1(ii, 1) = v(i, 1)
            v1(ii, 2) = v(i, 2)
            v1(ii, 3) = v(i, 3)
            ii = ii + 1
        End If
    Next i
    
    Set ws = ThisWorkbook.Worksheets.Add
    With ws:
        .Activate
        .Range("A1").Value = s
        .Range("B1").Value = s1
        .Range("C1").Value = s2
        ii = 2
        For i = LBound(v1) To UBound(v1)
            .Range("A" & ii).Value = v1(i, 1)
            .Range("B" & ii).Value = v1(i, 2)
            .Range("C" & ii).Value = v1(i, 3)
            ii = ii + 1
        Next i
    End With
End Sub

=СУММЕСЛИМН($B$4:$FM$4;$B$2:$FM$2;$FP14)

mdl_table_column.Application.Visible = False

Split("11/ддо", "/")
Split("6/3","/")

IsNumeric

kurs Is Nothing

Dim lo As ListObject
Set lo=ThisWorkBook.ActiveSheet.ListObjects(1)

Dim i As Long
For i=1 To lo.ListRows.Count
  If i<>1 And i<>2 And i<>3 And i<>10 Then
     lo.ListRows.Item(i).Delete()
  End If
Next i

Dim i as Long
i=lo.ListRows.Count
Dim ii as Long
For ii=1 To i
 If lo.ListRows.Item(ii).Index=i Then
   Exit Sub
 Else
   lo.ListRows.Item(ii).Delete()
 End If
Next ii

   Dim lo as ListObject
   Set lo=ThisWorkBook.ActiveSheet.ListObjects(1)

   Dim value() as Variant 'загоняете в массив таблицу, проводите манипуляции с данными
   value=lo.DataBodyRange.Value
   
   'здесь ваши действия с данными, удаление, добавление, важно помнить массив будет двумерный
   ' (первое измерение количество строк, второе количество столбцов)
   'т.е. создаёте новый массив, загоняете туда первые три элемента из текущего и последний, потом
   
   lo.DataBodyRange.Clear
   lo.ListRow.Add

   'а после циклом заполняете данными добавленные строки.