Please Help with correct code

[ada111]

Hi, I am trying to create a spreadsheet for a client of ours and the point is to make it easier for them to access their information in the spreadsheet. They want a button to the right of their spreadsheet, which I have already created, but I need a code to where it automatically adds a new row when they click on this button. I did research and found a posting on here from awhile ago that was exactly what I needed I believe but I can't get it to work for my Excel spreadsheet.

This is the code I found: I need this code to be where I can click it and it adds an entire row above row number 11. Can someone help me with this??
Sub AddARow()
Dim varUserInput As Variant
varUserInput = InputBox("Enter Row Number where you want to add a row:", _
"What Row?")
If varUserInput = "" Then Exit Sub

RowNum = varUserInput
Rows(RowNum & ":" & RowNum).Insert Shift:=xlDown
Rows(RowNum - 1 & ":" & RowNum - 1).Copy Range("A" & RowNum)
Range(RowNum & ":" & RowNum).ClearContents
End Sub


Thank you!!

 

[antialias401]

You can try pointing your button to this.
It will select Row 11
Then Prompt for confirmation (you can comment that out if you want)
Finally it will insert a row shifting row 11 down.

Sub AddARow()
    
    ActiveSheet.Range("A11").EntireRow.Select
    If MsgBox("Really Insert a Row Above Row 11?", vbYesNo) = vbNo Then Exit Sub
    Selection.Insert Shift:=xlDown
        
End Sub

 

[ada111]

I'm new to all of this. I'm just the tech writer for our company but I'm in charge of this. So I just need a code that when I click the button I created it just automatically adds a row. I had it to where when I clicked it, it added a row above but it was only when it was highlighted. It was this code I believe:
'Insert Row above active cell
Sub InsertMania()
ActiveCell.EntireRow.Insert

But I need a code that will add a row no matter what, highlighted or not. I need it to always add a row above A10....

 

[antialias401]

Point your button to this code:

Sub AddARow()

    'Add A Row Above Row 11 without prompting / Just shift rows down automatically
    ActiveSheet.Range("A11").EntireRow.Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Range("A1").Select

        
End Sub

 

[Michael M]

your code works fine, it's what it does that is the problem...
You are inserting a row, copying the data from the row above, then clearing the row you just inserted
Which row do you want cleared....the one above the inserted row ??

 

[ada111]

What I'm doing is for a doctor's office. They want to be able to click this new entry button i've already made and have a row automatically form above A10 so they can put in the new patient's information

 

[ada111]

AHHHHH, I got it working! Thank you all so much! I will definitely be back!