end of list

sine~language

New Member
Joined
Dec 10, 2005
Messages
3
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
 

Excel Facts

Excel Wisdom
Using a mouse in Excel is the work equivalent of wearing a lanyard when you first get to college

Barrie Davidson

MrExcel MVP
Joined
Feb 10, 2002
Messages
2,330
Would this code work for you?
Code:
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,
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,805
Messages
5,833,766
Members
430,230
Latest member
Yimmie

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top