Почему смещаются столбцы

[inessam]

Здравствуйте,

Каждые 2 минуты макрос копирует ЗНАЧЕНИЯ с одного листа на другой.

Sub Макрос1()

' Повторяем каждые 2 минуты
Application.OnTime Now + TimeValue("00:02:00"), "Макрос1"

Range("C9:J18").Select
Range("J18").Activate
Selection.Copy
Sheets("Лист1").Select
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D22").Select
End Sub

Вопрос: почему при каждом новом копировании Значений с Листа 2 на Лист 1 перенесенные ранее значения /ячейки либо съезжают или вовсе пропадают, а новые либо дописываются впереди старых либо тоже частично пропадают?

В идеале мне надо, что бы каждый раз переносимые данные замещали полностью старые /вставали на место старых без потерь и сдвигов.

Заранее благодарен за помощь!

[SAS888]

В Вашем коде значения для вставки берутся из активного листа на момент запуска макроса. Возможно, нужно указать явную ссылку на требуемый лист.
А вообще, весь Ваш код можно заменить на

Sheets("Лист1").[C10:J19].Value = Sheets("Лист2").[C9:J18].Value