Оптимизировать код копирования

[tae1980]

Вот рабочий код код:

      Worksheets("Шаблоны").Activate
      Range("Участки.шаблон").Cells(6, 2).Select
      Selection.Copy
      Worksheets("Участки").Activate
      Range("Участки_начало").Select
      ActiveCell.Offset(-3, Смещение + 1).Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Выглядит жутко... Как можно его оптимизировать?

[SAS888]

Странный код.
Если я правильно понял, то так:

With Sheets("Участки")
    Sheets("Шаблоны").Cells(6, 2).Copy .Cells(.Range("Участки_начало").Row - 3, .Range("Участки_начало").Column + Смещение + 1)
    End With

[tae1980]

Сообщение от SAS888

Странный код.

Расскажу подробнее.

 
'Переключаемся на лист с кодовам именем "шаблоны".
      Worksheets("Шаблоны").Activate
'Из области описанной в переменной "Участки.шаблон" (текущее значение "=Шаблоны!$J$1:$O$8") выбираем ячейку со Cells(6, 2), относительно от начала области.
      Range("Участки.шаблон").Cells(6, 2).Select
      Selection.Copy
'Переключаемся на лист "Участки", и вставляем из буфера обмена в нужную ячейку (интересует формула).
'Координату ячейки куда нужно вставлять, сейчас я рассчитываю так:
'Смещение_уч = ((0 + (Range("Участки_выбор") - 1)) * 6) + 4
'Cells(6, Смещение_уч + 2)
'"Участки_выбор" - Номер участка
      Worksheets("Участки").Activate
      Range("Участки_начало").Select
      ActiveCell.Offset(-3, Смещение + 1).Range("A1").Select
      Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Сообщение от SAS888

Если я правильно понял, то так:

With Sheets("Участки")
    Sheets("Шаблоны").Cells(6, 2).Copy .Cells(.Range("Участки_начало").Row - 3, .Range("Участки_начало").Column + Смещение + 1)
    End With

Sheets("Шаблоны").Cells(6, 2).Copy мы беремза начало отсчета начало листа, а не начала области из переменной.

[tae1980]

Всем спасибо кто смотрел...
Отдельно спасибо SAS888, за участие. Задачу решил. Вот код:

Шаблоны.Range("Участки.шаблон").Cells(6, 2).Copy Участки.Cells(6, Смещение_уч + 1)