VBA insert many rows

[insaider16]

Greetings masters. I have a question, I have a table and using a macro, I add an empty line at the bottom of the button. How to implement the code for the button + three lines at the end of the table.
Code for one line

Sub Test()
Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Set the_sheet = Sheets("Lilu1")
Set table_list_object = the_sheet.ListObjects("Nom")
Set table_object_row = table_list_object.ListRows.Add
End Sub

 

[Jimmypop]

Hi there...

Try the following

Sub Test()
    Dim the_sheet   As Worksheet
    Dim table_list_object As ListObject
    Dim table_object_row As ListRow
    Dim i           As Byte
    Set the_sheet = Sheets("Lilu1")
    Set table_list_object = the_sheet.ListObjects("Nom")
    For i = 1 To 3 'change this number as required
        Set table_object_row = table_list_object.ListRows.Add
    Next i
End Sub