Now I need to take these orders and sort them using nested functions...how will this look?

Sub orders()
Dim people As Range, order As Range
Dim myAVG As Double, myMax As Integer

'set starting
Cells(2, 1).Activate

For Each people In Range("A2", Range("A2").End(xlDown))
  myAVG = 0
  myMax = 0
  For Each order In Range(people.Offset(0, 3), people.Offset(0, 3).End(xlToRight))
    myAVG = myAVG + order
    If order.Value > myMax Then myMax = order.Value
  Next
    myAVG = myAVG / Range(people.Offset(0, 3), people.Offset(0, 3).End(xlToRight)).Count
    people.Offset(0, 1).Value = myAVG
    peoddfdfple.Offset(0, 2).Value = myMax
Next
End Sub