Now I'm not sure what you're really trying to do. The code FST1 provided
inserts a row above row 6. You'd obviously modify it to insert where you
want it. If you want to insert after a certain location, simply reference
the cell below it. Technically, you can't add a row in Excel. It has 65536
rows, period.

"Kiran" wrote:

Hi FST1,
thanks for replying. But I does not solve, what this code is doing is moving
the data from the selected row. I dont want to move data. When I click the
Get me a New Row button, I want to generate a new row.
So basically automating
Right-click - Insert Row below the selected cell.

Hope i was clearer this time

"FSt1" wrote:

hi,
To add a row to the sheet.....
Rows("6:6").Select
Selection.Insert Shift:=xlDown

To add a row to a range.........
Range("A6:I6").Select
Selection.Insert Shift:=xlDown

FSt1

"Kiran" wrote:

Can anyone let me know the code to add rows on a button click.
Thnx