Ayuda con un botón modificar desde un formulario

[jeaa]

Expertos buenos días, tengo un código que debe modificar desde la columna C por la columna A y B es otro tabla, pero todas las veces que lo modifica lo pone en el encabezado, per que siempre he usado ese código en cualquier formulario y normal me funcionaba pero aquí en este archivo no me funciona, los voy mostrar el código por que no puedo subir el archivo

Private Sub Btn_Modificar_Click()

If TextBox1.Value = -1 Then
   MsgBox "Falta ingresar la posición del deportista.", vbInformation, "Sistema de Monitoreo"
   Exit Sub
End If

With Hoja2
   If Btn_Modificar.Visible = True Then
      Fila = ListBox1.ListIndex + 2
   Else
      Fila = .Range("C" & Rows.Count).End(xlUp).Row + 2
   End If
   If Not MsgBox("¿Está seguro de registrar/modificar grupos?", vbQuestion + vbOKCancel) = vbOK Then Exit Sub
   ListBox1.RowSource = ""
      .Cells(Fila, 3) = TextBox1
      .Cells(Fila, 4) = TextBox2
      .Cells(Fila, 5) = TextBox3
      .Cells(Fila, 6) = TextBox4
      .Cells(Fila, 7) = TextBox5
      .Cells(Fila, ? = TextBox6
      .Cells(Fila, 9) = TextBox7
      .Cells(Fila, 10) = TextBox11
      .Cells(Fila, 11) = TextBox12
      .Cells(Fila, 12) = TextBox13
      .Cells(Fila, 13) = TextBox14
      .Cells(Fila, 14) = TextBox15
      .Cells(Fila, 15) = TextBox16
      .Cells(Fila, 16) = TextBox17
      .Cells(Fila, 17) = TextBox18
      .Cells(Fila, 18) = TextBox19
      .Cells(Fila, 19) = TextBox20
      .Cells(Fila, 20) = TextBox21
      .Cells(Fila, 21) = TextBox22
      .Cells(Fila, 22) = TextBox23
      .Cells(Fila, 23) = TextBox24
      .Cells(Fila, 24) = TextBox25
      .Cells(Fila, 25) = TextBox26
      .Cells(Fila, 26) = TextBox27
End With
ListBox1.RowSource = "Empleado"

MsgBox "Datos modificados con éxito", vbInformation, "Sistema de Monitoreo"

End Sub

Espero me puedan orientar desde ya muchas gracias

[Antoni]

Sin archivo, imposible ayudarte.