I barely know what its doing, I'm going to learn soon.

I have this which adds up two results and pumps out a new result row then on the end measures 7 outcomes for each person

Do While RowNo Cells(RowNo - 1, 1) Then topCell = RowNo

If Cells(RowNo, 1) = 1 Then

Range(int_rowadd & ":" & int_rowadd).Insert xlShiftDown

Cells(int_rowadd, 2).Value = Cells(botCell, 1).Value

Cells(int_rowadd, 1).Value = "Result"

Cells(int_rowadd, 13).Value = Cells(botCell, 13).Value

Cells(int_rowadd, 14).Value = Cells(botCell, 14).Value

Cells(int_rowadd, 15).Value = Cells(botCell, 15).Value

Cells(topCell, 2).Value = "Start"

Cells(botCell, 2).Value = "Exit"

For ColNo = 6 To 12

int_outcometop = Cells(topCell, ColNo).Value

int_outcomebot = Cells(botCell, ColNo).Value

int_outcome = int_outcomebot - int_outcometop

Cells(int_rowadd, ColNo).Value = int_outcome

Next ColNo

End If

End If

End If

RowNo = RowNo + 1

Loop