Private Sub Worksheet_Change(ByVal Target As Range)
    Dim w As Object
    'On Error Resume Next
    Sheets("Ëèñò2").Select
    If Range("P2").Value =  1  Then
    Sheets("Ëèñò2").Select
    Range("L2:M2").Select
    Selection.Copy
    End If
    Dim EmptyCell As Range
  Sheets("Ëèñò3").Select
  Const StartCell = "B1"
  If Len(Range(StartCell)) =  0  Then
    Set EmptyCell = Range(StartCell)
  Else
    Set EmptyCell = Range(StartCell).End(xlDown).Offset( 1 )
  End If
      EmptyCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Ëèñò2").Select
    Range("P4").Select
    ActiveCell.FormulaR1C1 = "Âûïîëíåí!"
    
End Sub

End If
      EmptyCell.Select         
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False