Попытка заставить эту работу ... Была возможность заставить работать функцию "добавить строку". Не могу понять, как сделать то же самое, но с удалением строк. Далее, строки должны быть удалены из нижней части таблицы. Пожалуйста, помогите!
Sub DeleteRowsFromTable()
'
' DeleteRowsFromTable Macro
'
Dim x As Integer
x = Range("M8").Text
If x > 0 Then
For i = 1 To x
Range("QuoteTable[#All]").Select
Selection.ListObject.ListRows.Delete
'AlwaysInsert:=False
Next
Else
MsgBox ("Enter the number of rows to delete.")
Range("M8").Select
End If
End Sub