vba 删除、移动、合并数据

Private Sub Workbook_Open()
    Macro1
End Sub


Option Explicit


Sub del()
    Rows("1:10").Delete Shift:=xlUp
    'Columns("A:B").Delete Shift:=xlToLeft
    Range("A:B,D:AC,AE:AO,AQ:AT,AW:AW,AY:CM").Delete Shift:=xlToLeft
    Columns("C:E").Cut
    Columns("B:B").Insert Shift:=xlToRight
    Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("C:C").EntireColumn.Hidden = True
    Columns("G:G").Cut
    Columns("K:K").Insert Shift:=xlToRight
End Sub


Sub com()
Dim rg As Range
Set rg = Cells(1, 2)
Do While rg.Value <> ""
    If rg.Value = rg.Offset(1, 0).Value Then
        rg.Offset(0, 4).Value = rg.Offset(0, 4).Value + rg.Offset(1, 4)
        rg.Offset(1, 0).Rows.EntireRow.Delete Shift:=xlUp
    Else
        Set rg = rg.Offset(1, 0)
    End If
Loop
End Sub


Sub aaa()
del
com
End Sub
Sub Macro1()
Application.OnKey "^+d", "aaa"
End Sub