Code: Select all
Selection.ListObject.ListRows.Add (1)
Code: Select all
Sub AddRows(NumRowsToAdd)
Dim i
ProtectOFF (ActiveSheet.Name)
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = False
For i = 1 To NumRowsToAdd
Selection.ListObject.ListRows.Add (1)
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = True
ProtectON (ActiveSheet.Name)
End Sub