C# と VB.NET の質問掲示板

数週間前に助けていただいた受験生です、（おかげで大学合格しましたありがとうございました！）
今回はセルの移動で躓きました、
Dim UpCell As Long
With Form1.Spreadsheet1
    UpCell = .Selection.Row
    
    .Sheets("Sheet1").Range("A" & UpCell - 1).Copy Destination:=.Sheets("Sheet2").Range("A1")
    .Sheets("Sheet1").Range("A" & UpCell).Copy Destination:=.Sheets("Sheet1").Range("A" & UpCell - 1)
    .Sheets("Sheet2").Range("A1").Copy Destination:=.Sheets("Sheet1").Range("A" & UpCell)
    .Cells(UpCell - 1, 1).Select
    
End With
このコードで選択中のセルの書式・内容を上に上げて行くことはできるのですが、[Copy Destination]で行っているにもかかわらずクリップボード経由で実行されてしまいます。
本当はクリップボードを経由しないで移動させたいのですが
原因が判らず次に進むことができません、よろしくお願いしますm(_ _)m

VB 6 / Windows XP / Excel 2003