Диапазон копирования внутри a для следующей структуры

Question

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

For i = 4 To Worksheets.Count 
Worksheets(i).Activate 
Sheets("DATA").Range(Cells(i - 2, 2), Cells(i - 2, 6)).Copy 
ActiveSheet.Cells(3, 2).PasteSpecial Paste:=xlPasteFormats 

Я пытался переписыванием коды несколько различных способов, но всегда приходит с ошибкой в ​​третьей строке. Я проверил значения «i», и они верны.

Любые идеи, что я могу сделать неправильно?

Answer 1

Следующее пытается построить диапазон, используя ячейки из другого листа (по умолчанию ActiveSheet property).

Worksheets(i).Activate 
Sheets("DATA").Range(Cells(i - 2, 2), Cells(i - 2, 6)).Copy 

Он должен быть ближе к,

Worksheets(i).Activate 
Sheets("DATA").Range(Sheets("DATA").Cells(i - 2, 2), Sheets("DATA").Cells(i - 2, 6)).Copy