Private Sub CommandButton2_Click()
    Dim ptr As Integer
    Dim rng As Range
    Dim val As Variant
    Dim i As Integer
    Dim Cell As Range
    
    ptr = Sheets("LOG").Range("h1").Value
    If Sheets("LOG").Range("b" & ptr).Value = "" Then
         MsgBox ("сохраненная история кончилась...")
         Application.EnableEvents = True
         Exit Sub
    End If
    Application.EnableEvents = False
    Set rng = Worksheets(Sheets("LOG").Range("d" & ptr).Value).Range(Sheets("LOG").Range("b" & ptr).Value)
    
    val = Sheets("LOG").Range("e" & ptr).Value
    If InStr(val, "#") <> 0 Then
          val = WorksheetFunction.Transpose(Split(val, "#"))
          i = 1
          For Each Cell In rng
                 Cell.Value = val(i, 1)
                 i = i + 1
          Next
    Else
          rng.Value = val
    End If
    
    Worksheets("Back").Range("a1:t400").Value = ActiveSheet.Range("a1:t400").Value
    Sheets("LOG").Range("h1").Value = Sheets("LOG").Range("h1").Value - 1
    Application.EnableEvents = True
End Sub

    Range("A1:C14").Select
    Selection.Copy
    Sheets("Лист2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

Private Sub Set_Filter()
    
    Unprotect "*****"
     
    If OptionButtonAll.Value Then
        Cells(30, 4).AutoFilter Field:=30, Criteria1:=">=0", Operator:=xlAnd
    Else
        Cells(30, 4).AutoFilter Field:=30, Criteria1:=">0", Operator:=xlAnd
    End If
    
    Protect "*****", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
            AllowFormattingRows:=True, AllowFiltering:=True

End Sub