Запускать макрос автоматически при расширении таблицы

Question

Sheet-DropDown Sheet-Input Пожалуйста, обратитесь к изображениям и коду. У меня есть кнопка «Обновить DropDown Validation», которая присваивает значения в столбце A листа «Dropdown» значениям.в столбце A листа «Входные данные» нажмите кнопку «Обновить проверку DropDown».Эта кнопка в настоящее время присваивает значения до номера строки 2874, строки, до которой существует таблица.Чтобы добавить больше записей, пользователь должен расширить таблицу, например, до строки 3000, а затем снова нажать кнопку «Обновить проверку DropDown».Пока пользователь не нажмет эту кнопку, строка с номера 2875 до строки 3000 не будет содержать значений, которые вызывают у меня проблему. Я хочу, чтобы, как только пользователь расширил таблицу со строки 2874 до строки 3000, значения были назначены автоматически.

Set sht = ThisWorkbook.Worksheets("Input")
Set sht1 = ThisWorkbook.Worksheets("DropDown")

LastRow1 = sht.Range("A" & Rows.Count).End(xlUp).Row
'MsgBox LastRow

LastRowAT = sht1.Range("A" & Rows.Count).End(xlUp).Row
'MsgBox LastRowAT


For i = 2 To LastRow1 + 1
    With sht.Range("A" & i).Validation
        .delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=DropDown!A2:A" & LastRowAT
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "Value not present in drop down."
        .ShowInput = True
        .ShowError = True
    End With
Next i