ActiveWorkbook.Sheets("Data").Activate
For GroupNo = 2 To NumGroups
Uniquecount = 0
Membernumber = 1
For Membernumber = 1 To NumMembers
If Cells(Membernumber + 4, 3 * GroupNo + 5) > 0 Then
With ActiveWorkbook.Sheets("Gr" & GroupIDsArray(GroupNo, 1)).Cells(1, 1)
.Offset(Uniquecount + 2, 87) = ActiveWorkbook.Sheets("Data").Cells(Membernumber + 4, 3 * GroupNo + 5).Value
.Offset(Uniquecount + 2, 2) = ActiveWorkbook.Sheets("Data").Cells(Membernumber + 4, 1).Value
.Offset(Uniquecount + 2, 78) = ActiveWorkbook.Sheets("Data").Cells(Membernumber + 4, 3 * GroupNo + 7).Value
End With
Uniquecount = Uniquecount + 1
End If
Next Membernumber
Next Group No