Link VBA Code to Button to transfer data (Run time error)

Hi

I hope someone can help as I am new to VBA.

I need help to link VBA code to a button that will transfer data from a specific row in the "DB" sheet back to the "Input" sheet when you click the "Loan Input" button.

I have the following VBA code in "module3" but I get an error when I link it to the button (I have also attached the workbook) :

Sub RoundedRectangle1_Click()
Application.ScreenUpdating = False
If Target.Column = 1 Then
Sheets("Input Sheet1").Cells(4, 3) = Sheets("DataBase").Cells(Target.Row, 2)
Sheets("Input Sheet1").Cells(6, 3) = Sheets("DataBase").Cells(Target.Row, 3)
Sheets("Input Sheet1").Cells(10, 3) = Sheets("DataBase").Cells(Target.Row, 5)
Sheets("Input Sheet1").Cells(12, 3) = Sheets("DataBase").Cells(Target.Row, 6)
Sheets("DataBase").Rows(Target.Row & ":" & Target.Row).Delete
'Application.Calculate
Sheets("Input").Activate
End If
End Sub

When I do link it to the "Loan Input" button I get an Run time error '424': object required

Thank you in anticipation