Sub Макрос2()
'
' Макрос2 Макрос

    Sheets("Протокол ДЭС").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Акты прокрутки\" + Sheets("Форма ДЭС").Cells(2, 19).Value _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
        MsgBox "Акт сохранён"
End Sub

Sub Макрос2()
'
' Макрос2 Макрос

    Sheets("Протокол ДЭС").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Акты прокрутки\" + Sheets("Форма").Cells(2, 19).Value _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=Tru
        MsgBox "Акт сохранён"
End Sub

Sub Макрос1()
'
' Макрос1 Макрос

    Dim shSrc As Worksheet, shRes As Worksheet
    Dim lr As Long
    Set shSrc = ActiveSheet
    Set shRes = Worksheets("Свод")
    lr = shRes.Cells(shRes.Rows.Count, "B").End(xlUp).Row + 1
    shRes.Cells(lr, "B").Value = shSrc.Range("A11").Value
    shRes.Cells(lr, "A").Value = shSrc.Range("D33").Value
    shRes.Cells(lr, "C").Value = shSrc.Range("G11").Value
    shRes.Cells(lr, "D").Value = shSrc.Range("J11").Value
    shRes.Cells(lr, "E").Value = shSrc.Range("M11").Value
    shRes.Cells(lr, "F").Value = shSrc.Range("E23").Value
    shRes.Cells(lr, "G").Value = shSrc.Range("G22").Value
    shRes.Cells(lr, "H").Value = shSrc.Range("D19").Value
    shRes.Cells(lr, "I").Value = shSrc.Range("J19").Value
    shRes.Cells(lr, "J").Value = shSrc.Range("L19").Value
    shRes.Cells(lr, "K").Value = shSrc.Range("N19").Value
    shRes.Cells(lr, "L").Value = shSrc.Range("F25").Value
    shRes.Cells(lr, "M").Value = shSrc.Range("F26").Value
    shRes.Cells(lr, "N").Value = shSrc.Range("F27").Value
    shRes.Cells(lr, "O").Value = shSrc.Range("F28").Value
    shRes.Cells(lr, "P").Value = shSrc.Range("H14").Value
    ' Здесь напишите код для остальных столбцов.
MsgBox "Данные сохранены"
End Sub

Sub Main()
Call Макрос1
Call Макрос2
End Sub