Создание из 3 макросов одного.

[bedrock90]

Здравствуйте, нужна помощь сделать из 3-х макросов 1. Задача такая:
Есть книга, которая состоит из 2-х листов, нужно следующее (баттон на 1 листе):
1) Сохраняет всю книгу по адресу С:\\1\...

Data = Worksheets("Äëÿ ÏÝÄà").Range("N9")
    SaveAsName = "R:\Ñëóæáà óïðàâëåíèÿ ðèñêàìè\0409153\2012\Ñåíòÿáðü\" & Data & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=SaveAsName
    MsgBox "Ôàéë ñîõðàíåí â: " & SaveAsName

2) 1, 10 и 20 числа каждого месяца копирует значение ячейки "М5" из первого листа в ячейку "N24" во втором, автоматически при открытии.

d = Day(Now)
Dat = Worksheets("Data").Range("L2")
If d = 1 Or d = 10 Or d = 20 Then MsgBox "Âíèìàíèå !"

3) Подчеркивает содержимое ячейки "I10".
4) Сохраняет лист 2 в pdf, по адресу С:\\2\...
5) Снимает подчеркивание "I10"

Data = Worksheets("Äëÿ ÏÝÄà").Range("N9")
    Range("I11:P11").Select
    Selection.Font.Underline = xlUnderlineStyleSingle
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "R:\Ñëóæáà óïðàâëåíèÿ ðèñêàìè\0409153\äëÿ ÏÝÄà\2012\Ñåíòÿáðü\" & Data & "îêîí÷" & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Selection.Font.Underline = xlUnderlineStyleNone

Не получается все склеить в один макрос.

[VictorM]

Если все 3 макроса работоспособны, то "склеить" в один их проще все всего наверное так:

Sub Три_в_одном()
    Call Макрос1
    Call Макрос2
    Call Макрос2
End Sub