Option Explicit
Dim Nombre As String
Dim ContOro As Integer
Dim ContPlata As Integer
Dim ContBronce As Integer

Sub principal()
    Call Inicio
    Call Titulos
    Call Procesar
End Sub

Sub Procesar()
  Dim fila As Integer
  Dim Medallas As Integer
  fila = 6
  While Nombre <> ""
      MsgBox(Nombre)
      Medallas = Worksheets("Datos").Cells(fila, 2) + Worksheets("Datos").Cells(fila, 3) + Worksheets("Datos").Cells(fila, 4)
      Call EscribirAlu(fila, Medallas)
      Call Contar(Worksheets("Datos").Cells(fila, 2), Worksheets("Datos").Cells(fila, 3), Worksheets("Datos").Cells(fila, 4))
      fila = fila + 1
      Call LeerNombre(fila)
  wend
  EscribirFinal(fila)
end

Sub Inicio()
    ContOro = 0
    ContPlata = 0
    ContBronce = 0
End Sub

Sub Titulos()
    Worksheets("Salida").Cells(1, 1) = "Academia de natación El Ahogado"
    Worksheets("Salida").Cells(2, 1) = "Medallas que hemos ganado (Resumen)"
    Worksheets("Salida").Cells(5, 1) = "Nombre"
    Worksheets("Salida").Cells(5, 2) = "Medallas"
End Sub

Sub LeerNombre(fila)
    Nombre = Worksheets("Datos").Cells(fila, 1)
End Sub

Sub EscribirAlu(fila, Medallas)
    Worksheets("Salida").Cells(fila, 1) = Nombre
    Worksheets("Salida").Cells(fila, 2) = Medallas
End Sub

Sub Contar(medoro, medplata, medbronce)
    If medoro > 1 Then ContOro = ContOro + 1
    If medplata > 2 Then ContPlata = ContPlata + 1
    If medbronce > 3 Then ContBronce = ContBronce + 1
End Sub

Sub EscribirFinal(fila)
    fila = fila + 2
    Worksheets("Salida").Cells(fila, 1) = "Alumnos con más de una medalla de oro"
    Worksheets("Salida").Cells(fila, 5) = ContOro
    fila = fila + 1
    Worksheets("Salida").Cells(fila, 1) = "Alumnos con más de dos medallas de plata"
    Worksheets("Salida").Cells(fila, 5) = ContPlata
    fila = fila + 1
    Worksheets("Salida").Cells(fila, 1) = "Alumnos con más de tres medallas de bronce"
    Worksheets("Salida").Cells(fila, 5) = ContBronce
End Sub