Расширение умной таблицы

[Посетитель]

Добрый день!
Скажите, пожалуйста, как с помощью кода расширить или удалить строки в умной таблице.
Код должен расширить умную таблицу( лист1) на значение которое отображается в ячейке J3 ( лист1).
Например, если J3=7 то в таблице должно быть 7 строк. Если после расширения таблицы на 7 строк в ячейке  J3 отобразится значение 3, то должно остаться 3 строки, а 4 строки должны автоматически удалится. Если опять изменить J3=13, то должно добавить 10 строк и т.д.
Вот есть такой код, может можно что-то изменить.
Sub РасширитьИУдалить()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim numRowsToAdd As Long
    Dim numRowsToDelete As Long
   
    ' Укажите лист, на котором находится таблица
    Set ws = ThisWorkbook.Sheets("Лист1")
   
    ' Укажите название умной таблицы
    Set tbl = ws.ListObjects("Выводиском")
   
    ' Получите значение из ячейки для добавления строк (например, B1)
    numRowsToAdd = ws.Range("J2").Value
   
    ' Расширение таблицы на указанное количество строк
    If numRowsToAdd > 0 Then
        tbl.ListRows.Add numRowsToAdd
    End If
   
    ' Получите значение из ячейки для удаления строк (например, B2)
    numRowsToDelete = ws.Range("L2").Value
   
    ' Удаление лишних строк (если значение меньше 1)
    If numRowsToDelete >= 1 Then
        Dim numRowsCurrent As Long
        numRowsCurrent = tbl.ListRows.Count
       
        If numRowsToDelete < numRowsCurrent Then
            tbl.ListRows(numRowsToDelete + 1 & ":" & numRowsCurrent).Delete
        End If
    End If
End Sub

[Посетитель]

Дело в том, что если в таблице на листе1 только 3 строки, а в табл.2 на листе2 найдено было 10 срок с искомым значением то в таблице на листе1 будут отображаться только 3 найденных строки.
А изменять размеры в ручную не интересно.

[Посетитель]

И можно как-то связать код для увеличения и уменьшения  таблицы на листе1 с макросом кнопки "Найти" (макрос Кнопка3_Найти)? С этим у меня тоже проблема.