VBA Code:
Sub Test()
'
Dim RowNumber As Long
Dim ResultsArray As Variant
'
RowNumber = 2
'
For I = 1 To 3
' Column N Formula
Range("G" & RowNumber).Offset(, 7).Formula = "=IF(I" & RowNumber - 1 & "="","",IFERROR(INDEX($A$2:$E$50,AGGREGATE(15,6,(ROW($B$2:$B$50)-ROW($B$1))/($B$2:$B$50=$I" & RowNumber & "),INT((COLUMNS($K" & RowNumber & ":N" & RowNumber & ")+1)/2)),7),""""))"
'
' Column O Formula
Range("G" & RowNumber).Offset(, 8).Formula = "=IF(I" & RowNumber - 1 & "="","",IFERROR(INDEX($A$2:$E$50,AGGREGATE(15,6,(ROW($B$2:$B$50)-ROW($B$1))/($B$2:$B$50=$I" & RowNumber & "),INT((COLUMNS($K" & RowNumber + 1 & ":O" & RowNumber + 1 & ")+1)/2)),4),""""))&"""""
'
' Column P Formula
Range("G" & RowNumber).Offset(, 9).Formula = "=IF(I" & RowNumber - 1 & "="","",IFERROR(INDEX($A$2:$E$50,AGGREGATE(15,6,(ROW($B$2:$B$50)-ROW($B$1))/($B$2:$B$50=$I" & RowNumber & "),INT((COLUMNS($K" & RowNumber & ":P" & RowNumber & ")+1)/2)),7),""""))"
Next
End Sub