Как найти последнюю строку таблицы Excel

Sub UdalStrok()
    With ActiveSheet
        Rows("" & .UsedRange.Rows.Count - 3 & ":" & .UsedRange.Rows.Count).Delete
    End With
End Sub

  Dim RngTbl as Excel.Range 'Диапазон таблицы.
  Dim RngCol as Excel.Range 'Диапазон первого столбца таблицы.
  Dim Cell as Excel.Range 'Некоторая ячейка внутри таблицы.
...
  Set RngTbl = Cell.CurrentRegion
  Set RngCol = RngTbl.Columns(1) 'Диапазон, представляющий ячееки первого столбца таблицы (диапазона) RngTbl.
...

...
  Dim nRow As Long
...
  'Shift:=xlShiftUp - со сдвигом ниже лежащих ячеек вверх,
  'Shift:=xlShiftToLeft - со сдвигом ячеек влево.
  TblRng.Rows(nRow).Delete Shift:=xlShiftUp
...

Option Explicit
 
Sub sub1()
  Dim Sh As Excel.Worksheet 'Лист в книге Excel.
  Dim rngTbl As Excel.Range 'Диапазон таблицы.
  Dim rngCol As Excel.Range 'Диапазон первого столбца таблицы.
  Dim Cell As Excel.Range 'Некоторая ячейка внутри таблицы.
  Dim nRow As Long 'Номер строки.
  
  'Ссылка на тот лист, который в данный момент активен.
  Set Sh = Application.ActiveSheet
  'Пускай левый верхний угол таблицы совпадает с левым верхним углом листа.
  Set Cell = Sh.Cells(1, 1)
  'Диапазон таблицы.
  Set rngTbl = Cell.CurrentRegion
  'Диапазон левого столбца таблицы
  Set rngCol = rngTbl.Columns(1) 'Диапазон, представляющий ячееки первого столбца таблицы (диапазона) rngTbl.
  
  'Ищем ячейку.
  nRow = 0
  Set Cell = rngCol.Find(What:="пример", MatchCase:=False)
  If Not (Cell Is Nothing) Then
    'Определяем номер найденной ячейки относительно верней строки таблицы.
    nRow = Cell.Row - rngCol.Row + 1
    'Удаляем из таблицы строку, в которой расположена найденная ячейка.
    rngTbl.Rows(nRow).Delete Shift:=xlShiftUp
  End If
End Sub

Sub Test()
    Dim r As Range, iLastRow As Long
    With ActiveSheet
        With .UsedRange
            iLastRow = .Rows.Count + .Row - 1
            Set r = .Find(What:="Итого", LookIn:=xlValues, LookAt:=xlPart)
        End With
        If Not r Is Nothing Then
            .Range(r, .Cells(iLastRow, 1)).EntireRow.Delete Shift:=xlUp
        End If
    End With
End Sub

    'Удаляем из таблицы строку, в которой расположена найденная ячейка.
    rngTbl.Rows(nRow).Delete Shift:=xlShiftUp

    'Удаляем из таблицы строки, начиная с той строки, где находится найденная ячейка и
    'и по последнюю строку таблицы.
    rngTbl.Rows(CStr(nRow) & ":" & CStr(rngTbl.Rows.Count)).Delete Shift:=xlShiftUp

Option Explicit
 
Sub sub1()
  Dim Sh As Excel.Worksheet 'Лист в книге Excel.
  Dim rngTbl As Excel.Range 'Диапазон таблицы.
  Dim rngCol As Excel.Range 'Диапазон первого столбца таблицы.
  Dim Cell As Excel.Range 'Некоторая ячейка внутри таблицы.
  Dim nRow As Long 'Номер строки.
  
  'Ссылка на тот лист, который в данный момент активен.
  Set Sh = Application.ActiveSheet
  'Пускай левый верхний угол таблицы совпадает с левым верхним углом листа.
  Set Cell = Sh.Cells(1, 1)
  'Диапазон таблицы.
  Set rngTbl = Cell.CurrentRegion
  'Диапазон левого столбца таблицы
  Set rngCol = rngTbl.Columns(1) 'Диапазон, представляющий ячееки первого столбца таблицы (диапазона) rngTbl.
  
  'Ищем ячейку.
  nRow = 0
  Set Cell = rngCol.Find(What:="Итого", LookIn:=xlValues, LookAt:=xlPart)
  If Not (Cell Is Nothing) Then
    'Определяем номер найденной ячейки относительно верней строки таблицы.
    nRow = Cell.Row - rngCol.Row + 1
    'Удаляем из таблицы строки, начиная с той строки, где находится найденная ячейка и
    'и по последнюю строку таблицы.
    rngTbl.Rows(CStr(nRow) & ":" & CStr(rngTbl.Rows.Count)).Delete Shift:=xlShiftUp
  End If
End Sub