Sub Удалить_Пр()
Dim iSh As Worksheet
Dim lRow&
Application.ScreenUpdating = False
With Worksheets("Лист1")
  lRow = .Cells(.Rows.Count, 44).End(xlUp).Row + 1
End With
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  If .Name = "Лист1" Or .Name = "Лист3" Then
    .Rows(lRow).Rows("1:1048474").Delete Shift:=xlUp ' 1 вариант
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Sub Удалить_Пр()
Dim iSh As Worksheet
Dim lRow&
Application.ScreenUpdating = False
For Each iSh In ThisWorkbook.Worksheets
  With iSh
  lRow = .Cells(.Rows.Count, 44).End(xlUp).Row + 1
  If .Name = "Лист1" Or .Name = "Лист3" Then
    .Rows(lRow).Rows("1:1048474").Delete Shift:=xlUp ' 1 вариант
  End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Sub Найти_Последнюю_Ячейку3()
Dim iLastRow As Long
With Sheets("Лист1") ' Нужное имя впишите сами
    iLastRow = .Cells(.Rows.Count, 44).End(xlUp).Row
End With
MsgBox "Значение в последней АКТИВНОГО листа -  " & Cells(iLastRow + 1, 1).Value
End Sub

Sub Найти_Последнюю_Ячейку3()
Dim iLastRow As Long
With Sheets("Лист1") ' Нужное имя впишите сами
    iLastRow = .Cells(.Rows.Count, 44).End(xlUp).Row
End With
MsgBox "Значение в последней ячейке листа 'Лист2' -  " & Sheets("Лист2").Cells(iLastRow + 1, 1).Value
End Sub

="XM[t]["&СТОЛБЕЦ()-1&"]"

="XM[t]["&ПОСЛЕД(1;10;0;1)&"]"

' Устанавливаем атрибут "Только чтение"
        file.Attributes = file.Attributes Or 1