Insertar datos de un formulario en1ª fila vacia de una tabla

[Valentin Baeza]

Hola, ¿cómo puedo hacer para que los datos de un formulario se incorporen a una tabla en la primera fila vacia?
Tengo esto pero me lo escribe siempre en la fila 18 y yo necesito que, si ya hay datos en la fila 18, cubra la fila 19 con los datos del formulario

Subcomando privadoButton1_Click ()
Hojas de trabajo ("TRABAJADORES"). Rango ("E18"). Valor = Me.Departamento.Value
Hojas de trabajo ("TRABAJADORES"). Rango ("I18"). Valor = Me.Categoria.Value
Hojas de trabajo ("TRABAJADORES"). Rango ("D18"). Valor = Me.Nombre_Alias.Value
Hojas de trabajo ("TRABAJADORES"). Rango ("J18"). Valor = Me.PorcentajeJornada.Value
End Sub

Gracias de antemano

 

[afonsomira]

Hola.

Subcomando privadoButton1_Click ()

application.screenupdating = false

'Encuentra la ultima linea de la tabla
UltimaLinea = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

sheets("TRABAJADORES").cells(UltimaLinea,5).value = Me.Departamento.Value
sheets("TRABAJADORES").cells(UltimaLinea,9).value = Me.Categoria.Value
sheets("TRABAJADORES").cells(UltimaLinea,4).value = Me.Nombre_Alias.Value
sheets("TRABAJADORES").cells(UltimaLinea,10).value = Me.PorcentajeJornada.Value

application.screenupdating = true

End Sub