Удаление двух последних строк данных на нескольких листах с использованием VBA

Question

Попытка удалить последние две строки в макросе, который форматирует листы указанным c способом. Все остальное работает нормально, за исключением того, что последние две строки данных не удаляются

Весь мой код:

Sub Format()

'Firstly convert all text cells into number cells for every sheet in workbook

Application.ScreenUpdating = False

For Each ws In Sheets
    On Error Resume Next
    For Each r In ws.UsedRange.SpecialCells(xlCellTypeConstants)
        If IsNumeric(r) Then r.Value = (r.Value) * 1
        ''Or test the values in the next column on the right
        'If IsNumeric(r) Then r.Offset(0,1).Value = (r.Value)*1
    Next r

'Remove excess columns and rows
    Dim lastRow As Long
'Find last row in column A
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
'Remove Last 2 rows with data
    ws.Rows(lastRow - 1 & ":" & lastRow).Delete
'Delete rows and columns
    ws.Rows("1:15").Delete
    ws.Columns("A").Delete

Next ws
Application.ScreenUpdating = True

End Sub

это код, который я пытаюсь использовать, чтобы удалить последние две строки на каждом листе:

    Dim lastRow As Long
'Find last row in column A
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
'Remove Last 2 rows with data
    ws.Rows(lastRow - 1 & ":" & lastRow).Delete