GCSE Student in a spot of trouble

[WindJackal]

Im a GCSE student doing an advanced course in which i have to create m
own magagment system of a company, i really need help with this butto
i need to create, inclosed is a screentshot of my XLS and a copy of th
macros already programmed by a friend, problem is the macros dont see
to work so if n e body could correct it that would be great!
'Screenshot' (http://geocities.com/dumponthelawn/screenshot.PNG)

 

[Tom Ogilvy]

Remove the line:
Sub Button1_Click()

So it should just look like this:

Private Sub CommandButton1_Click()
Dim iRow As Long


For i = 6 To Me.Rows.Count
If Me.Cells(i, 5) = "" Then
Me.Cells(i, 5) = i - 5
Me.Cells(i, 6) = Me.Cells(2, 6)
Me.Cells(i, 7) = Me.Cells(2, 7)
Me.Cells(i, 8) = Me.Cells(2, 8)
Me.Cells(i, 9) = Me.Cells(2, 9)
Me.Cells(i, 10) = Me.Cells(2, 10)
End If
Next i
End Sub