asdasdasdasdasdasd

Sub Taller_Macro()
Dim RutPaciente As Long
Dim Edad As Integer
Dim Nombre As String
Dim Apellido As String
Dim Sexo As Integer
Dim Sexo2 As String
Dim CuidadOrigen As String
Dim EstadoPaciente As Integer
Dim Estado As String
Dim DiasHospitalizado As Integer
Dim Prevision As String
Dim AtencionesRealizadas As Integer
Dim CantDiasGraves As Integer
Dim Fila As Integer

Range("A2").Activate
RutPaciente = InputBox("introducir rut paciente", "entrada de datos")

Edad = InputBox("introducir edad paciente", "entrada de datos")
Nombre = InputBox("introducir nombre paciente", "entrada de datos")
Apellido = InputBox("introducir apellido paciente", "entrada de datos")
Sexo = InputBox("introducir sexo paciente(1= masculino , 0= femenino)", "entrada de datos")
CuidadOrigen = InputBox("introducir ciudad origen paciente", "entrada de datos")
EstadoPaciente = InputBox("introducir estado paciente(1= Grave en pabellon, 2= leve en pabellon, 3=UCI)", "entrada de datos")
DiasHospitalizado = InputBox("introducir dias hospitalizado", "entrada de datos")
Prevision = InputBox("introducir prevision paciente(Fonasa o ISAPRE)", "entrada de datos")
AtencionesRealizadas = InputBox("introducir cantidad de atenciones", "entrada de datos")

'Definir sexo paciente
If (Sexo = 1) Then
    Sexo2 = "masculino"
    Else
    Sexo2 = "femenino"
    End If

'Definir estado paciente
If (EstadoPaciente = 1) Then
    Estado = "Grave en pabellon"
    CantDiasGraves = InputBox("introducir cantidad de dias paciente grave", "entrada de datos")
    End If
    If (EstadoPaciente = 2) Then
    Estado = "Leve en Pabellon"
    CantDiasGraves = 0
    End If
    If (EstadoPaciente = 3) Then
    Estado = "UCI"
    CantDiasGraves = 0
    End If