Как переместить данные на другой лист

Question

Я хочу добавить командную кнопку, которая позволит мне перемещать данные на другой лист и удалять данные с исходного листа.Я не могу понять это, и он будет только копировать данные, а не перемещать их целиком.

Я попытался указать диапазон ячеек, которые я хотел бы переместить.Это работает, однако, я хочу иметь возможность перемещать данные из ячейки, по которой я щелкаю, а не просто иметь указанные ячейки.

     whichSheet = InputBox("In which sheet do you wish to enter data? Specify 
     sheet number as Sheet2 & Sheet3 only.", "Sheet Number")

     If whichSheet = "" Then
         MsgBox "You didn't specify a sheet!"
         Exit Sub
     End If

     Worksheets(whichSheet).Activate

     Dim lastrow
     lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
     lastrow = lastrow + 1
     Cells(lastrow, 1) = TextBox1

     If Application.WorksheetFunction.CountIf(Range("A2:A" & lastrow), 
         Cells(lastrow, 1)) > 1 Then
         MsgBox "Duplicate data! Only unique IDs allowed", vbCritical, "Remove Data"
         Cells(lastrow, 1) = “”
     ElseIf Application.WorksheetFunction.CountIf(Range("A2:A" & lastrow), 
         Cells(lastrow, 1)) = 1 Then
         answer = MsgBox("Are you sure you want to add the record?", vbYesNo + 
         vbQuestion, "Add Record")
         If answer = vbYes Then
            Cells(lastrow, 1) = txtMRN.Text
            Cells(lastrow, 2) = txtLastname.Text
            Cells(lastrow, 3) = txtFirstname.Text
                If Len(Range("D12")) <> 0 Then
                    Sheet2.Cells(erw, 1) = CurrentRegion.Rows.Count + 1
                    Sheet2.Cells(erw, 2) = CurrentRegion.Rows.Count + 1
                    Sheet2.Cells(erw, 3) = CurrentRegion.Rows.Count + 1    
                    CurrentRegion.Rows.Count = ""
                    CurrentRegion.Rows.Count = ""
                    CurrentRegion.Rows.Count = ""
                End If
            End If
        End If

End Sub