Insertar datos desdés un form a dos hojas a a misma vez

Al pulsar algún botón en tu formulario te hará esto:

filaventas = sheets("ventas").range("b65000").end(xlup).row+1

filacaja = sheets("caja").range("b65000").end(xlup).row+1

sheets("ventas").cells(filaventas,2).value = cddate(txtfecha)

sheets("ventas").cells(filaventas,3).value = txtdescripcion

sheets("ventas").cells(filaventas,4).value = cdbl(txttotal)

sheets("caja").cells(filacaja,2).value = cddate(txtfecha)
sheets("caja").cells(filacaja,3).value = txtdescripcion
sheets("caja").cells(filacaja,4).value = cdbl(txttotal)

Mi código está preparado para pintar los datos por linea, pero veo que lo quieres todo apilado en la columna B, por lo que solo tienes que cambiar el 3 y el 4 por un 2

Recuerda finalizar y puntuar

Hola, gracias por tu colaboración  pero me saca un error   424 en tiempo de ejecución que se requiere de un objeto .

La idea es ingresar los mismos datos en hojas diferentes dando click en un solo commandbutton de un formulario.

Gracias de nuevo por tu valiosa ayuda..

Waquiro.

El código funciona perfectamente solo queda insertarlo en un botón de formulario, sería algo así:

Private Sub CommandButton1_Click()

filaventas = Sheets("ventas").Range("b65000").End(xlUp).Row + 1

filacaja = Sheets("caja").Range("b65000").End(xlUp).Row + 1

Sheets("ventas").Cells(filaventas, 2).Value = cddate(txtfecha)

Sheets("ventas").Cells(filaventas, 3).Value = txtdescripcion

Sheets("ventas").Cells(filaventas, 4).Value = CDbl(txttotal)

Sheets("caja").Cells(filacaja, 2).Value = cddate(txtfecha)

Sheets("caja").Cells(filacaja, 3).Value = txtdescripcion

Sheets("caja").Cells(filacaja, 4).Value = CDbl(txttotal)

End Sub

perdona mi ignorancia pero me sale que no se ha definido subfuncion y me seselecciona  la linea

Sheets("ventas").Cells(filaventas, 2).Value = cddate(txtfecha)

waquiro