クリップボードから削除

Private Sub CommandButton1_Click()
  
  ' セルA1を選択する
  Range("A1").Select
  
  ' 選択したセル(A1)をコピーする
  Selection.Copy
  
  ' 切り取る場合は以下
  'Selection.Cut
  
  '現在のコピーモードを出力する
  Select Case Application.CutCopyMode
  Case Is = False
     MsgBox ("コピーモードでも切り取りモードでもない")
  Case Is = XlCutCopyMode.xlCopy
     MsgBox ("コピーモード")
  Case Is = XlCutCopyMode.xlCut
     MsgBox ("切り取りモード")
  End Select
  
  ' セルA2を選択する
  Range("A2").Select
 
  ' 現在選択しているセル(A2)に、コピー(切り取り)したセル(A1)の内容を貼り付ける
  ActiveSheet.Paste
  
  ' クリップボードにコピーされたセルの内容を削除する
  Application.CutCopyMode = False
  
End Sub