Simplify Repetitive Code

[default_name]

I have the following code:

    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Selection.ListObject.ListRows.Add AlwaysInsert:=True

Is there a way to simplify this code in one statement, instead of having to run through the same thing 12 times?

Thanks

 

[Tolle]

Yes,

Try this

Code:

Dim NewRowCount as long

NewRowCount = [Choose how many new rows you want to add]
Selection.end(xldown).select
For i = 1 to NewRowCount
     [COLOR=#333333][/COLOR]Selection.ListObject.ListRows.Add AlwaysInsert:=True
next [COLOR=#333333]i[/COLOR]

 

[default_name]

Yes,

Try this

Code:

Dim NewRowCount as long

NewRowCount = [Choose how many new rows you want to add]
Selection.end(xldown).select
For i = 1 to NewRowCount
     Selection.ListObject.ListRows.Add AlwaysInsert:=True
next [COLOR=#333333]i[/COLOR]

It works perfectly!
Thanks!