Сохранение таблицы с использованием пути к файлу + данные ячейки = ошибка 424

Question

Я застрял в проблеме более одного дня.

По сути, я написал макрос al oop, который берет список чисел из листа [FILES], вводит его в таблицу из одной ячейки [Table9], это номер продукта, меняя номер в [ Table9] затем запускает макросы, которые ссылаются на sh некоторых связанных таблиц, и удаляет рабочие листы, сохраняя только результаты в виде номера продукта и этикетки. H: \ Files \ 011140 Product Financial Allocation.xlsx

Это l oop, я получаю сообщение "Требуется 424 объекта"

Sub LOOPING()

Dim FilePath As String
FilePath = ThisWorkbook.Path & Range("Table9[ProgramID]") & " Product Financial Allocation" & ".xlsx"

For i = 3 To 6

    Application.DisplayAlerts = False

    Sheets("FILES").Range("A" & i).Copy Sheets("TEMPLATE").Range("Table9[ProgramID]")

    Workbook.SaveCopyAs Filename:=FilePath

  Next i

End Sub

Я также пытался не определять путь к файлу и непосредственное указание пути в копируемой строке сохранения

Workbook.SaveCopyAs Filename:=Thisworkbook.Path & Range("Table9[ProgramID]") & " Product Financial Allocation" & ".xlsx", FileFormat:=51

Любая помощь будет принята

Если вам нужен следующий шаг макроса, тогда его

Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Target.Address = Range("Table9[ProgramID]").Address Then

Call FilterTOGGLE
Call RefreshA
Call RefreshB
Call RefreshC
Call RefreshD
Call CurrencyFormat
Call FilterTOGGLE
Call FilterYears
Call DELETE

Application.ScreenUpdating = True

End If

End Sub