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

    If Range("Tipo_trabajador").Value = "Producción" Then
        Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 1).Value = Range("Nombre_Trabajador").Value
        Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 2).Value = Range("Sueldo").Value
        Worksheets("Trabajadores_produccion").Cells(FilaObjetivo, 3).Value = Range("Horas").Value
    ElseIf Range("Tipo_trabajador").Value = "Administración" Then
        Worksheets("Trabajadores_Admin").Cells(FilaObjetivo, 1).Value = Range("Nombre_Trabajador").Value
        Worksheets("Trabajadores_Admin").Cells(FilaObjetivo, 2).Value = Range("Sueldo").Value
    End If Range("Tipo_trabajador").Value = "Ventas" Then
        Worksheets("Trabajadores_Ventas").Cells(FilaObjetivo, 1).Value = Range("Nombre_Trabajador").Value
        Worksheets("Trabajadores_Ventas").Cells(FilaObjetivo, 2).Value = Range("Sueldo").Value
    End If Range("Tipo_trabajador").Value = "Apoyo" Then
        Worksheets("Trabajadores_Apoyo").Cells(FilaObjetivo, 1).Value = Range("Nombre_Trabajador").Value
        Worksheets("Trabajadores_Apoyo").Cells(FilaObjetivo, 2).Value = Range("Sueldo").Value
    MsgBox "Agregado"

End Sub