Private Sub CommandButton1_Click()
    Sheets("Отчет о литературе").Activate
    Sheets("Отчет о литературе").Range("P2:P77").Select
    Selection.Copy
    Sheets("Отчет о литературе").Range("D2:D77").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Отчет о литературе").Range("F2:L77").Select
    Selection.ClearContents
    Sheets("Приход за текущий месяц").Activate
    Sheets("Приход за текущий месяц").Range("B2:B76").Select
    Selection.ClearContents
    Sheets("Отчет о литературе").Activate
End Sub