Sub IngresarTrabajador()
    Dim FilaObjetivo As Long
    FilaObjetivo = Worksheets("Trabajadores_produccion").Range("G1").Value

    Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 1).Value = Range("C4").Value
    Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 2).Value = Range("Nombre_Trabajador").Value
    Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 3).Value = Range("Sueldo").Value
    Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 4).Value = Range("Horas").Value

    MsgBox "Agregado"

End Sub