vba中对游戏礼包的统计代码

Sub 单一礼包统计()

Dim b As Workbook, i%, giftname$, count&
'
'giftname代表要打开的文件夹名字
    giftname = "三界盛典礼盒.xls"
    
'
    Set b = Workbooks.Open("C:\Users\admin\Desktop\" & giftname)
    b.Activate
    Windows(giftname).Activate
'把B列剪切到E列前面并删除H列、G列
    Worksheets(1).Columns("C:C").Cut
    Worksheets(1).Columns("B:B").Insert Shift:=xlToRight
    Columns("H:H").Delete
    Columns("G:G").Delete
'统计购买人数，购买礼包数量
    i = 2
    count = 0
Do While Cells(i, 1) <> ""
count = count + Cells(i, 6)
        i = i + 1
    Loop
    Range("I2") = i - 2: Range("I2").Interior.Color = vbYellow
    Range("H2") = "购买人数："
    Range("I4") = count: Range("I4").Interior.Color = vbCyan
    Range("H4") = "购买礼包数量："
'自动调整列宽
    Columns("H:H").EntireColumn.AutoFit
End Sub