Solicito ayuda con visual basic para aplicasiones

necesito ayuda para con mi formulario lo que quiero que haga es que mande la información ala ("hoja2") ....

este es es los códigos de progamasion pero en la ("hoja2"):

Private Sub CommandButton1_Click()
Dim fila As Long
Dim duplicados As Boolean
'Obtener la fila disponible
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
duplicados = False
'Validar si se han ingresado datos duplicados
For i = 1 To fila
If Cells(i, 1).Value = UserForm1.TextBox1.Value Then
If Cells(i, 2).Value = UserForm1.TextBox2.Value Then
If Cells(i, 3).Value = UserForm1.TextBox3 Then
'Se encontraron datos duplicados
MsgBox "Datos duplicados en la fila " & i
duplicados = True
End If
End If
End If
Next i
If Not duplicados Then
'Insertar datos capturados
Cells(fila, 1).Value = UserForm1.TextBox1.Value
Cells(fila, 2).Value = UserForm1.TextBox2.Value
Cells(fila, 3).Value = UserForm1.TextBox3.Value
'Limpiar cajas de texto
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
UserForm1.TextBox3.Value = ""
'Notificar al usuario
MsgBox "Datos insertados en la fila " & fila
End If
End Sub