Put Records Into 2 Sheets With One Button Pressed

Private Sub ValidarCampos()

Dim r As Long
Dim c As Long
Dim s As Worksheet
'Set s = Active.Worksheet( Name)
Dim Error As String
' Dim ws As Worksheet
Dim ValorMensaje As Long

'Turn off Screen refresh
Application. ScreenUpdating = False

'Use Cells(Row, Column) for range adddress
r = ActiveCell.Row
c = ActiveCell.Column ..................................

How can I simultaneously with this code put data from textboxes to Active sheet and sheet "Izpisi". So when the button Add(dodaj) is pressed the data goes to active sheet and sheet ("Izpisi") at the same time