Visual Basic para Aplicaciones - Gurdar datos de textbox en otra hoja

Selection.End(xlDown).Select

filaactiva = ActiveCell.Row

filaactiva = filaactiva + 1

Cells(filaactiva, 1).Select

For contador = 1 To 2

Cells(filaactiva, contador).Select

If contador = 1 Then selecc = TextBox1

If contador = 2 Then selecc = TextBox2

Next contador

Dim ws As Worksheet         'declaro

Set ws = Hoja2                    'asigno

ws.Range("A1").Value = 1   'uso

Set ws = ThisWorkbook.Sheets("nombre_hoja")