Help with range function

[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. Can someone please help me on this?

Thanks,

Sai

 

[kmsainath]

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

I now want to move to cell D3 and so on until V3. Can someone please help me on this.