Sub test()
    Dim objDic As Object, sh As Worksheet
    Dim arr(), txt$, i&, j&
    j = 1
    Set objDic = CreateObject("scripting.dictionary")
    arr = Лист2.UsedRange.Value
    For i = 2 To UBound(arr)
        txt = arr(i, 1)
        objDic.Item(txt) = txt
    Next i
    Erase arr
    arr = Лист1.UsedRange.Value
    For i = 2 To UBound(arr)
        txt = arr(i, 11)
        If objDic.exists(txt) Then
            j = j + 1
            arr(j, 1) = arr(i, 1)
            arr(j, 2) = arr(i, 2)
            arr(j, 3) = arr(i, 3)
            arr(j, 4) = arr(i, 4)
            arr(j, 5) = arr(i, 5)
            arr(j, 6) = arr(i, 11)
            arr(j, 7) = arr(i, 12)
            arr(j, 8) = arr(i, 13)
            arr(j, 9) = arr(i, 14)
        End If
    Next i
    Set sh = Worksheets.Add
    With sh
        .Name = "отчет"
        .[a1].Resize(j, 9) = arr
        .[a1].Resize(, 9) = Array(arr(1, 1), arr(1, 2), arr(1, 3), arr(1, 4), arr(1, 5), _
        arr(1, 11), arr(1, 12), arr(1, 13), arr(1, 14))
    End With
End Sub

Function Searh(Диапазон As Range, Значение$)
    If Диапазон.Count > 1 Then Searh = "Диапазон задан не верно": Exit Function
    If Диапазон.Value Like Join(Array("*", Значение, "*"), "") Then Searh = 1 Else Searh = 0
End Function

=ЕСЛИ(ПРАВСИМВ(A1;2)="ВИ";1;0)

Do .... Loop

Sub Button1_Click()
    With Sheets("Таблица")
        cr = .Cells(.Rows.Count, "C").End(xlUp).Row + 1
        .Cells(cr, "C") = .Cells(cr - 1, "C") + 1
        .Cells(cr, "D").Resize(, 9) = Array([G6], [g7], [g8], [G10], [g11], [g12], [G14], [g15], [g16])
    End With
    MsgBox "Внесли!"
End Sub

 ActiveWorkbook.UpdateLink

Sub test()
    Dim lrow
    lrow = Range("b" & Rows.Count).End(xlUp).Row + 1
    Range("b" & lrow).Resize(Rows.Count - lrow, 7).Clear
End Sub

 K = K + 1

Private Sub CommandButton1_Click()
   If ListBox1.ListIndex = -1 Then Me.Hide Else MsgBox ListBox1.Value
End Sub

Private Sub UserForm_Initialize()
    Dim i&
    For i = 1 To 12
        ListBox1.AddItem Format(DateSerial(Year(Now), i, 1), "mmmm")
    Next
End Sub