Copy entire row in insert in the middle of a table.

Hello,

I am having some issues with the attached file that I was hoping someone could help me with. You will see the file has four tenant types. I want to have a button for each type that says insert "type name". The code will highlight an entire row and insert it at the last blank row in that specific type section. For example. The types are Restaurants, Variety Stores, Outparcels and Anchors. If I want to add a Variety Store. I would click the button. It would copy a variety store row that is hidden and insert it in the variety store section of the table. I was messing around with the code below but it isn't working.

Sub AddVariety()
    Range("113:113").Select
    Selection.Copy
    Range("E19" & Rows.Count).End(xlUp).Select
    Selection.Insert Shift:=xlDown
    
End Sub

Any help would be greatly appreciated. Thanks!