help with vba to resize table more than one row

[Liz_I3]

Hi
my below code work to insert one new row to my table. How would I modify it to insert more than one row? Exampel 25


Thanks
L

Sub CheckRows()

Range("a5000").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select

If Selection.Rows.Count < 10 Then

Selection.ListObject.ListRows.Add AlwaysInsert:=True

Else
Exit Sub
End If

End Sub

 

[Warship]

This is NOT tested, Try

Sub CheckRows()
  Range("a5000").Select
  Selection.End(xlUp).Select
  Range(Selection, Selection.End(xlUp)).Select
  If Selection.Rows.Count < 10 Then
  
  For x = 1 To 10 - Selection.Rows.Count
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
  Next x
  
  Else
    Exit Sub
  End If
End Sub

 

[Liz_I3]

Thanks I will give it a try. Would you know is there a way to speed up the insert process. We are entering data into the table from a userform. The table will automaticly add a new row but it takes at lease a minute or two (feels like 5) when you submit. At times we submit 3 rows of data at a time. I have it on manual calculation and screen updates set to false.

So I make the table down to about 500 rows, then created a test to say if less that 10 rows left insert, but I would want at least another 200 rows, which I think is going to be very very slow.

My alternative is to just have a message box to contact supervisor to resize the table

Thanks
L