Combining separate macros into 1 macro.

Hello all. I have a set of 16 macros with each on it's own button. I would like to make one button that will call on each of these macros and make them all run. I've been looking and playing around with it trying to get it to work but can not get it into my head correctly to get it to work. (I keep getting errors).

If I can see how to add P12SET to P11SET I think I can get the rest from there. If someone can show me that I'd really appreciate it. They are just simple copy/paste macros with two different conditional formattings. They are all named P11SET thruP116SET, if that helps. Once they get to P19SET, it switches to P110SET and so forth until it gets to P116SET.

Here is a couple of the macros of the 16. Thank you all so much!!!

Sub P11SET()
'
' P11SET Macro
'

'
    Range("DK71:DL72").Select
    Selection.Copy
    Range("G68").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("DO53:DO62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DP53").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("EG53:EG62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("EH53").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("DO65:DO74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DP65").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("EG65:EG74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("EH65").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AG52").Select
    Application.CutCopyMode = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=1", Formula2:="=10"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .Color = -16711936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("X74").Select
End Sub

Sub P12SET()
'
' P12SET Macro
'

'
    Range("DK73:DL74").Select
    Selection.Copy
    Range("G68").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("DO53:DO62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DQ53").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("EG53:EG62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("EI53").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("DO65:DO74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("DQ65").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("EG65:EG74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("EI65").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AH52").Select
    Application.CutCopyMode = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=1", Formula2:="=10"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = True
        .Color = -16711936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("X74").Select
End Sub