Private Sub CommandButton1_Click()
Dim elegida As String, NombreHoja As String
elegida = UserForm1.cbcodigo.List(cbcodigo.ListIndex)
Sheets(elegida).Select
NombreHoja = Sheets(elegida).Name
Sheets("NombreHoja").Activate
Sheets("NombreHoja").Range("c12").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 1) = CDate(DTPicker1.Value)
ActiveCell.Offset(0, 2) = TextBox1.Value
ActiveCell.Offset(0, 3) = TextBox2.Value
End Sub