D = Application.Match(CLng(Cells(75, 3).Value), Range("C1:CI1"), 0)
If Not IsError(D) Then
[B][COLOR=red]D=D+2
[/COLOR][/B]For j = D To 8
P(0) = P(0) + Cells(2, j).Value
P(1) = P(1) + Cells(9, j).Value * Cells(2, j).Value
P(2) = P(2) + Cells(16, j).Value * Cells(2, j).Value
P(3) = P(3) + Cells(23, j).Value * Cells(2, j).Value
Next j
Else
Exit Sub