For me it is not clear what you want to achieve, and why you posted in http://www.excelforum.com/excel-programming-vba-macros/

1) do you want 9 or 10 (9...0 has 10 members) segments?

2) as we are in VBA subforum try
Sub test()
Dim i%, j%, people%
people = [f3]
j = 7
range("E7:G"&rows.count).clear
For i = [f2] To 2 Step -1
  Cells(j, "E") = i
  Cells(j, "F") = Round(people / i)
  people = people - Cells(j, "F")
  Cells(j, "G") = people
  j = j + 1
Next i
Cells(j, "E") = 1
Cells(j, "F") = people
Cells(j, "G") = 0
End Sub