Создайте окно поиска, которое возвращает все результаты на новый лист

Question

У меня есть таблица с контактами поставщиков, которая содержит более 800 строк. Мне нужно создать окно поиска, вроде google, эй, я ищу имя продавца, и оно дает мне все контакты, которые находятся под именем поставщика на листе, как фильтры, но через окно поиска. Все, что у меня есть, это код VBA для поиска, и он сообщает ячейке результат. Мне нужно, чтобы он действительно дал мне результаты.

Ниже все, что я мог придумать, основываясь на поиске

Sub FindEmAll()
    Dim strFind As String
    Dim wsh As Worksheet
    Dim rng As Range
    Dim strAddress As String
    Dim strMsg As String
    strFind = InputBox("Enter the value to search for")
    If strFind = "" Then
        MsgBox "Exit stage left.", vbInformation
        Exit Sub
    End If
    For Each wsh In Worksheets
        With wsh.Cells
            Set rng = .Find(What:=strFind, LookAt:=xlWhole)
            If Not rng Is Nothing Then
                strAddress = rng.Address
                Do
                    strMsg = strMsg & vbCrLf & wsh.Name & "!" & rng.Address
                    Set rng = .FindNext(After:=rng)
                Loop Until rng.Address = strAddress
            End If
        End With
    Next wsh
    If strMsg = "" Then
        MsgBox strFind & " was not found.", vbInformation
    Else
        MsgBox strFind & " was found in:" & vbCrLf & strMsg, vbInformation
    End If
End Sub