end of list

[sine~language]

I've created a Staff Roster which contains a column with a list of names repeated 3 times down (1 for each shop): i.e.

Bob
Jane
Fred

Bob
Jane
Fred

Bob
Jane
Fred

I would like to include an "Add Staff" function, which would add a new row beneath each of the Freds in the above example. The main thing I'm unsure of is writing a function or macro to recognise the end of the list of staff.

Thanks in advance..
Scott

 

[Barrie Davidson]

Would this code work for you?

Sub AddEmployee()
'Written by Barrie Davidson
Dim NewEmployee As String

NewEmployee = InputBox("Enter New Employee Name")
Range("A1").End(xlDown).Offset(1).EntireRow.Insert
Range("A1").End(xlDown).Offset(1).Value = NewEmployee
Range("A1").End(xlDown).End(xlDown).End(xlDown).Offset(1).EntireRow.Insert
Range("A1").End(xlDown).End(xlDown).End(xlDown).Offset(1).Value = NewEmployee
Range("A1").End(xlDown).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(1).EntireRow.Insert
Range("A1").End(xlDown).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(1).Value = NewEmployee

End Sub

Regards,