Approaching this as a coding exercise, there are a steps to break down the problem into bite sized chunks.
1. How do we define the source data range
2. How do we iterate through the source paragraphs to process each one
3. How do we separate the key (team name) from the value (##$ Person)
4. How do we define the table where the data goes and locate the relevant cell in the table
5. How do we add the value in that cell
I'll give you the first couple of steps to get you started.
1. There are numerous ways to achieve this. The simplest is to expect the user to select the source range before running the macro.
2. This is relatively easy because each data set is a paragraph within that range.
Combining both steps 1 and 2 we have this code
Code:
Sub ILike2MoveIt()
Dim aRng As Range, aPara As Paragraph
Set aRng = Selection.Range
For Each aPara In aRng.Paragraphs
Debug.Print aPara.Range.Text 'this writes to the Immediate window
Next aPara
End Sub
The next step is to work out how to separate the team name from the value you want to move. This is kind of complicated because you haven't separated it with anything other than a space and the point at which this begins varies from paragraph to paragraph. So your homework is to work out a clean way to separate the key and value.