Выберите второй лист не работает. Выдает ошибку 1004

Question

Простой вопрос. Почему этот код выдает ошибку?

Sheet1.Range("A1:I14").Copy Sheet2.Range("A1").PasteSpecial

Sheet2.Range("A1:X14").Select

Answer 1

Попробуйте просто использовать следующий код. Для такой задачи выбор не требуется:

Dim rng As Range
  Set rng = sheet1.Range("A1:I14")
   Sheet3.Range("A1").Resize(rng.Rows.Count, rng.Columns.Count).value = rng.value