Копирование значений ячеек из одной строки в другую

[ольгаг]

Здравствуйте Уважаемые программисты!
Есть код ниже (vba Excel 2003), который копирует значения ячеек из одной выбранной строки (позиция 1) в другую выбранную строку (позиция 2).

Sub Копировать_позицию()
   Dim CopyRng1 As Range, CopyRng2 As Range
   Dim CopyPoz1 As Variant

   Set CopyRng1 = Nothing
   On Error Resume Next
   Application.DisplayAlerts = False
   Set CopyRng1 = Application.InputBox("Выделите любую ячейку копируемой строки:", "Выбор позиции 1", Type:=8)
   Application.DisplayAlerts = True
   On Error GoTo 0

   If CopyRng1 Is Nothing Then
      MsgBox "Отменено", vbOKOnly, ""
      ActiveCell.Select: GoTo Vi
   End If

   With CopyRng1
         CopyPoz1 = ActiveSheet.Range("E" & CopyRng1.Row & ":F" & CopyRng1.Row).Value
   End With

   Set CopyRng2 = Nothing
   On Error Resume Next
   Application.DisplayAlerts = False
   Set CopyRng2 = Application.InputBox("Выделите любую ячейку строки для вставки:", "Выбор позиции 2", Type:=8)
   Application.DisplayAlerts = True
   On Error GoTo 0

   If CopyRng2 Is Nothing Then
      MsgBox "Отменено", vbOKOnly, ""
      ActiveCell.Select: GoTo Vi
   End If

   With CopyRng2
         ActiveSheet.Range("E" & CopyRng2.Row & ":F" & CopyRng2.Row) = CopyPoz1
   End With
Vi: End Sub

Код работает, но если после появления окна (выбор позиции 1) нажать esc или кнопку Отмена, то появляется ошибка:

Run-time error '424':
Object required.

на строке (помеченной красным цветом).
Подскажите пожалуйста как исправить код, чтобы при отмене выбора позиции, код корректно завершался?
Заранее спасибо!

[Казанский]

Не должно такого быть - в коде прописано подавление ошибок. У меня ошибка не появляется (Excel 2007).