Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
  With Sheets("Нор_Док_МРК")
    .Range("EC6").Formula2R1C1 = "Да"
  End With
Else
  With Sheets("Нор_Док_МРК")
    .Range("EC6").Formula2R1C1 = "Нет"
  End With
End If
End Sub

Sub Найти_Последнюю_Ячейку()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 44).End(xlUp).Row
Cells(iLastRow + 1, 1).Select
End Sub

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

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

Sub Найти_Последнюю_Ячейку()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 44).End(xlUp).Row
Cells(iLastRow + 1, 1).Select
End Sub

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

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

Sub Найти_Последнюю_Ячейку()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 44).End(xlUp).Row
Cells(iLastRow + 1, 1).Select
End Sub

Sub Макрос1()
    With Sheets("Лист2")
       Range("CX4").FormulaR1C1 = "=TEXT(TODAY(),""ДД.ММ.ГГГГ"")&"" в ""&HOUR(NOW())&"":""&MINUTE(NOW())"
    End With
End Sub