Not sure, but if you haven't changed this code yet, it might be your problem:
change this:
to this
change this:
Local total[105] For a=1 To 104 If a<=52 Then total[a]=numbersa[a] End If If a>52 Then total[a]=numbersb[a-52] End If Next
to this
Local total[104] For a=0 To 103 If a<52 Then total[a]=numbersa[a] End If If a>=52 Then total[a]=numbersb[a-52] End If Next