Help with moving to next row to populate data

[kmsainath]

I am a beginner when it comes to VBA. There are about 30 members in my team and I need to be able to monitor 30 different scores for each of my member in a given month. I need to capture the score initially on one excel sheet(automatically calculated on one cell with the help of furmulas) and on clicking a command button, I need that to be moved to the next sheet where the agent's name is present.
Now, if there are are 7 scores already available for a member of my team, once I select the member's name, the score that comes out on the first sheet should automatically move to the 8th column against the name of the agent.

This is the code so far...

Private Sub cmd1_Click()
ActiveSheet.Select
'Dim d2 As String
Dim d4 As String
d4 = Range("D4").Value
'd2 = Range("D2").Value
If d4 = "Abdul Safi Mohd" Then
Dim f79 As String
f79 = Range("f79").Value
Worksheets("Scoresheet").Activate
Worksheets("Scoresheet").Select
Do Until Sheets("Scoresheet").Range < ActiveCell.Range("V3")
Sheets("Scoresheet").Range("C3").Select
ActiveCell.Value = f79

Need help on this please....
Thanks,