Need help with macro

[henrybrent1974]

I am defiantly new to macros. i have learned a lot from this forum but cant seem to figure out how to write this macro.
I am trying to take 3 player from each weekly results based on the previous week. For example, the first week the top 3 players would qualify. In the second week if any of the top 3 are the same as week #1 top 3 the take 4th place and so on. need this to continue for 30 weeks.

	Week #1
1st	Jason
2nd	Troy
3rd	Mike
4th	Ricky
5th	John
6th	Mark

<tbody>
</tbody>

	Week #2
1st	Mike
2nd	Joe
3rd	Jake
4th	Jason
5th	Bubba
6th	Trey

<tbody>
</tbody>

So my qualifiers so for would be:
1. Jason
2. Troy
3. Mike
4. Joe
5. Jake
6. Bubba

Any help would be appreciated so much

 

[Peter_SSs]

If for any week that 5th place would qualify then I would need it to take 6th place also ..

Try adding in the blue line of code where shown

    Got = Got + 1
    If r = 5 Then d(rA.Cells(r + 1, 2).Value) = 1
  End If

 

[henrybrent1974]

Worked great!!!! Thanks again for all your help.