Correction, the previous loop's 'If' statement should be:
For P = 1 To cntPrev
'Match Current Acitvity with Previous Acitvity
If arrCur(C, 4) & arrCur(C, 5) & arrCur(C, 6) & arrCur(C, 7) = _
arrPrev(P, 4) & arrPrev(P, 5) & arrPrev(P, 6) & arrPrev(P, 7) Then