How to insert 10 rows at the end of the table

[S P P]

How to insert 10 rows at the end of the table

insert 1 rows at the end of the table I have VBA

 

[Marc L]

As when using an Excel table the row insertion is automatic so no need obviously any VBA procedure …​

​

 

[S P P]

Marc L

I thought there would be a way to insert the newline as Vba at the end.

There is a way to repeat this newline VBA like clicking multiple times

 

[S P P]

I got it like this

>>> use code - tags <<<

Sub Insert10LineattheEnd()
    For Counter = 1 To 10
    Run "Insert1LineattheEnd"
    Next Counter
End Sub
Sub Insert1LineattheEnd()
    ActiveSheet.ListObjects(1).ListRows.Add
End Sub

 

[Keetoowah]

or, more simply, to save ink in case someone wants to insert your code in a book

Sub Insert10LineattheEnd()
    For Counter = 1 To 10
     ActiveSheet.ListObjects(1).ListRows.Add
    Next Counter
End Sub

 

[S P P]

Keetoowah

It also works but simpler.
I always try to simplify the VBA I use.

thanks for simplifying

>>> use code - tags <<<

Private Sub CommandButton1_Click()
    For Counter = 1 To 10
     ActiveSheet.ListObjects(1).ListRows.Add
    Next Counter
End Sub