Combobox busca y muestra en otro combobox, no muestra demás datos de la fila de almacenamiento

Este sería el código

Private Sub ComboBoxMatricula_Change()
Application.ScreenUpdating = False
 TextBoxNombreAlumno.Enabled = False
 Sheets("LISTA DE ALUMNOS").Activate
 On Error Resume Next
 Cells(ComboBoxMatricula.ListIndex + 3, 1).Select
 TextBoxNombreAlumno = ActiveCell(0, 2)
 'buscar pacientes por.DAM
 ComboBoxPaciente.Clear
 'Se agrega una columna al ComboBoxPaciente, para almacenar la fila
 ComboBoxPaciente.ColumnCount = 2
 Set h2 = Sheets("HISTORIAL DE TRATAMIENTOS")
    h2.Select
    Set r = h2.Range("C10:C1000")
    Set s = r.Find(ComboBoxMatricula)
    If Not s Is Nothing Then
        ncell = s.Address
        Do: Set s = r.FindNext(s)
            If Not s Is Nothing Then
                ComboBoxPaciente.AddItem Cells(s.Row, s.Column + 2)
                'se almacena la fila
                ComboBoxPaciente.List(ComboBoxPaciente.ListCount - 1, 1) = s.Row
            End If
        Loop While Not s Is Nothing And s.Address <> ncell
    End If
End Sub

y el otro

Private Sub ComboBoxPaciente_Change()
Application.ScreenUpdating = False
Sheets("HISTORIAL DE TRATAMIENTOS").Activate
On Error Resume Next
'se obtiene la fila
f = Val(ComboBoxPaciente.List(ComboBoxPaciente.ListIndex, 1))
Cells(f, 1).Select
ComboBoxTratamientos = ActiveCell.Offset(0, 7)
TextBoxCantidad = ActiveCell.Offset(0, 8)
TextBoxDatoAdicional = ActiveCell.Offset(0, 9)
TextBoxFolio = ActiveCell.Offset(0, 11) 'regresa folio
TextBoxStatus = ActiveCell.Offset(0, 12) 'regresa status
ComboBoxBimestre = ActiveCell.Offset(0, 13) 'regresa el bimestre cargado
TextBoxComentarios = ActiveCell.Offset(0, 14) ' REGRESA EL COMENTARIO

Saludos.DAM
Si es lo que necesitas.