I need som Help with this Formula

Nearly everything works in this formula but Not the line in Red

Private Sub ComboBox1_Change()   If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
   
   For j = 1 To 3
      Me("TextBox" & j) = ComboBox2.Column(j + 3 * ComboBox1.ListIndex)
   Next
End Sub
Private Sub ComboBox2_Change()
    M_calc
End Sub
Private Sub TextBox1_Change()
    M_Box 1
End Sub
Private Sub TextBox2_Change()
    M_Box 2
End Sub
Private Sub TextBox3_Change()
    M_Box 3
End Sub
Sub M_Box(Y)
    ComboBox2.Column(Y + 3 * ComboBox1.ListIndex) = Me("TextBox" & Y)
    M_calc
End Sub
Sub M_calc()
    ReDim sp(6)
    sq = sp
    
    With ComboBox2
       For j = 1 To 19 Step 3
           c00 = c00 + Val(.Column(j + 0))
           sp(j \ 3) = Val(.Column(j + 1))
           sq(j \ 3) = Val(.Column(j + 2))
       Next
       .Column(22) = c00
       .Column(23) = Application.Max(sp)
       .Column(24) = Application.Min(sq)
       Frame1.Caption = Space(2) & .Column(22) & Space(14) & .Column(23) & Space(10) & .Column(24)
    End With
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Ark1.Cells(1).CurrentRegion.Offset(2).Value = ComboBox2.List
End Sub
if i Change the Line to this Then it Works 
.Column(24) = Application.Max(sq)
but That is Not what I want

Link to my File https://www.dropbox.com/s/y6h6hbtsxd...good.xlsm?dl=0