VBA Add New Blank Row Below The Active Row In Table Range Only-⚠-Not Entire Worksheet Row!!!!

[excelakos]

Hi to everyone!!! I ve been searching all the net to find a piece of code to perform this:

I have a table (table range)
I select a cell
I need to add a new table row (not an entire new row) below the (active) row of the selected cell.

Around the net, i always find the use of "entire row" element.
I dont need this. i need to add new row ONLY inside the specific table range!!!

I cant believe that this code is not doable and i cant believe it does not exist already out there!!!

Please experts!!!!

 

[Fluff]

How about

Sub excelakos()
   With ActiveCell
      .ListObject.ListRows.Add (.Row - .ListObject.Range(1).Row + 1)
   End With
End Sub

 

[excelakos]

How about

Sub excelakos()
   With ActiveCell
      .ListObject.ListRows.Add (.Row - .ListObject.Range(1).Row + 1)
   End With
End Sub

At LAST!!!!

Dear Fluff thank YOU once again!!!!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[excelakos]

At LAST!!!!

Dear Fluff thank YOU once again!!!!

If i may, is it possible to make it work even if a filter is applied to the table range?

 

[Fluff]

Not that I'm aware of.