Add Specific number of rows based on cell value

[Utradeshow]

Hi All,

I have this code that adds rows based on the value of cell A2. I need two things. I would like the code to run after the value is entered in cell A2 vs having to press a add button. and also would like it to add rows starting from row 11 down? Is that possible?

Sub InsertRow()

  Dim ws As Worksheet
  Dim NBOFROWS As Range
  Set ws = ThisWorkbook.ActiveSheet

  With ws
    Set NBOFROWS = .Range("A2")
    ActiveCell.EntireRow.Offset(1).Resize(NBOFROWS.Value).Insert shift:=xlDown
  End With

End Sub

 

[rollis13]

. Now, please remember to mark the thread as "Solved".

 

[Utradeshow]

You're gonna kill me! I have a pivot table that feeds off this data, I was told to have the Pivot table adjust along with this data, the data sheet should be formatted as a "Table" and now the code doesn't work properly. Is there anything that can be adjusted to have this code add rows to the table?

 

[rollis13]

I have no idea how your real project is organized but this would be a completely different case, I suggest opening a new thread with an appropriate title.

 

[Utradeshow]

Thank you, I will do so.