New command button

Hi,

I'm looking to see if I can create a command button that prompts me to write a row number that I would like to insert and then copy that information to another sheet. I found the code to enter the row but I can not figure out how to have it add the same row to another sheet with the same information.

Private Sub CommandButton1_Click()
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
Title:="New Staff", Type:=1)
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Thank you for any assistance that you can give...

I'm so sorry, your right.... "command button that prompts me to write a row number that I would like to insert and then copy that information to another sheet" the other sheet and the row that I want to insert is a new staff name.

Hi,

Booth sheets are identical, the command that I posted in the beggining allows me to enter a row and then I type the employee's name in that row... I would like to add the name to the adjasent sheet that is identical to the original one. The sheets are schedules for our clinical staff and when a new staff has to be added to the original sheet I have to add to all the other sheets that are broken down into 6 weeks each sheet. These sheets are about one and half month's of dates and there are 9 sheets all together. I hope this helps...