Скопируйте диапазон из сводной таблицы и вставьте ее в другой лист n раз в зависимости от значения ячейки.

Question

Я пытаюсь создать код для вставки диапазона из сводки несколько раз на основе значения отдельной ячейки. По сути, я пытаюсь создать динамический c денежный поток.

Код не работает, и я получаю следующую ошибку:

Ошибка компиляции:

Метод или элемент данных не найден

Метод См. попытку кода ниже

 Sub TradeDump()

 `Dim ws As Worksheet`
 `Dim wsp As Worksheet`
 `Dim wsc As Worksheet`
 `Dim i As Integer`

 `Set wsp = Sheets("Pivot")`
 `Set ws = Sheets("Cashflow Fix Data")`
 `Set wsc = Sheets("Control")`

 `Period = wsc.Range("Term")`

 `rng = wsp.Range(Range("G6"), wsp.Range("G6").End(xlDown)).Select`

 `For i = 1 To Period`
 `NextRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row + 1`
    'get the Next Empty Row
 `ws.Range("E" & NextRow).PasteSpecial xlPasteAll` 

    'paste

 Next i

End Sub