【VBA】SelectionChangeでコピペをしたい

Question

前提・実現したいこと

盤面に表示した駒を動かしたいです。
SelectionChangeで駒をコピー、値を削除
違う場所をクリックしたら、値を張り付けのようにしたいです。

発生している問題・エラーメッセージ

RangeクラスのPasteSpecialメソットが失敗しました。

該当のソースコード

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Worksheets("将棋盤").Range("B1:T10")) Is Nothing Then
       Target.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    ElseIf Not Intersect(Target, Worksheets("将棋盤").Range("B1:T10")) Is Nothing Then
       Target.Copy
       Target.Value = ""
    End If
End Sub

試したこと

Paste がうまく機能していないのだと思い、いろいろなメソットを試してみましたが結果は同じでした。
また If の使い方もよくないかなと思い、Nothingを別の値にしてみたりしたのですが、うまく作動しませんでした。
ご教授いただけると幸いです。

Answer 1

こういったことでしょうか？

Private PreviousRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:T10")) Is Nothing Then
        If PreviousRange Is Nothing Then
            Set PreviousRange = Target
        Else
            Target.Value = PreviousRange.Value
            PreviousRange.Value = ""
            Set PreviousRange = Target
        End If
    End If
End Sub

Comments

[ninngin]

回答ありがとうございます。
作動しましたが、一つのセルの値が保持されてしまい、次の駒を動かす（別のセルの値を選択し、ほかの場所に移動する）への切り替えが難しかったです。
SelectionChange、BeforeRightClick、BeforeDoubleClickも屈指しないといけないかと考えています。
せっかく回答していただいたのに申し訳ありません。