Still haven't figured this one out

Hi,

To set the scene, I'm developing a excel based register for my classes.

I currently have a button that inserts the date and moves down to the next row.

I would like to develop this code so that it not only puts the date in but, also inserts a tick symbol next to each of the pupils in that class.

I have all my classes on one worksheet, with hyperlinks to navigate to each of the groups.

Each class will have a different number of pupils, but next to each pupil is a number beginning at one and then going up depending on how many pupils in the class.

The macro needs to see if there's a number in column A and if there is then put a tick in that row. It needs to work down the column putting the ticks in, but then stop at the end of the list.

I have attached a screen shot of just one of the classes to show what I mean and give a clearer idea as to what layout I'm working with. So the date will go in the row where the active cell is currently located and the ticks need to be inserted next to each pupil below the date.

Here's the code I have so far -

Public Sub Date_Today()
With ActiveCell
.Value = Date
.NumberFormat = "dd-mmm-yy"
ActiveCell.Offset(1, 0).Select
End With
End Sub

Any help would be just great, as this would be a big step towards me completing a significant section of this workbook.

If I haven't explained anything well or you just don't get what I'm going on about then let me know.

Many thanks,

Mark.