请问我有2个代码怎么让他们一起运算？

lxy6336

各位高手
求教一个问题
我有下面2个代码想放在一起运算
主要是一个表在工作簿里另外一个表进行复黏贴
然后在另外一个工作表里进行类似的复制黏贴工作
我想让这2个VBA代码可以一起运算
求教怎么做？
代买在下面
多谢各位高手指点

Sub 登记表()
Sheets("上海磊乐实业有限公司登记表").Select
    Range("A2").Select
ActiveSheet.Unprotect Password = "123456"  
Sheets("上海磊乐实业有限公司").Select
Range("i1").Value = Range("i1").Value + 1
    Range("I1").Select
    Selection.Copy
    Sheets("上海磊乐实业有限公司登记表").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("上海磊乐实业有限公司").Select
    Range("C6").Select
    Selection.Copy
    Sheets("上海磊乐实业有限公司登记表").Select
    Range("b2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("上海磊乐实业有限公司").Select
    Range("I17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("上海磊乐实业有限公司登记表").Select
    Range("c2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("上海磊乐实业有限公司").Select
    Range("C21:I21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("上海磊乐实业有限公司登记表").Select
    Range("d2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("1:1").Insert
Sheets("上海磊乐实业有限公司登记表").Select
    Range("C2").Select
     Range("E3").Select
    ActiveCell.FormulaR1C1 = _
        "=LOOKUP(0,0/(RC[-4]=[上海磊乐实业有限公司登记表.xlsx]Sheet1!R[-2]C1:R[9997]C1),[上海磊乐实业有限公司登记表.xlsx]Sheet1!R[-2]C6:R[9997]C6)"
    ActiveSheet.Protect Password = "123456"    '加密码
   Sheets("上海磊乐实业有限公司").Select
   End Sub



Sub 另存表()
Windows("上海磊乐实业有限公司.xls").Activate
    Range("C6").Select
    Selection.Copy
    Windows("上海磊乐实业有限公司登记表.xlsx").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows("上海磊乐实业有限公司.xls").Activate
    Range("C21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("上海磊乐实业有限公司登记表.xlsx").Activate
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("上海磊乐实业有限公司.xls").Activate
    Range("C9:F9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("上海磊乐实业有限公司登记表.xlsx").Activate
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2").Select
    Application.WindowState = xlMinimized
    Windows("上海磊乐实业有限公司.xls").Activate
    ActiveWindow.SmallScroll Down:=3
    Range("I17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("上海磊乐实业有限公司登记表.xlsx").Activate
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("上海磊乐实业有限公司.xls").Activate
    Range("F6").Select
    Windows("上海磊乐实业有限公司登记表.xlsx").Activate
End Sub

grf1973

sub main()
    call 登记表
   call 另存表
end sub