求助！！！！！！

如附件：想把数据表的数据统计到分站表，统计数据为：接机量，详细情况如下：有错请帮忙修改！每月统计一次，每次统计分站表写入跳下一行！
宏：Public rpd
' 接机表 Macro
' vaio 记录的宏 2010-9-19
'Sub SS接机情况表()Application.CutCopyMode = False
rpd = InputBox("请输入统计日期:(YYYY-MM-DD)")
Sheets("分站").Range("A2") = DateValue(rpd)    
    Windows("SS接机情况表.xls").Activate
     Sheets("分站").Select
    i = 2
    Do While Workbooks("SS接机情况表.xls").Sheets("数据").Cells(i, 7) <> ""
        Select Case Workbooks("SS接机情况表.xls").Sheets("数据").Cells(i, 1)    '选择接机表行数
                Case "北海海港隆电器维修中心SS"
                    k = 9
                Case "潮州市迅兴电器有限公司SS"
                    k = 10
                Case "城厢区诚耿家电维修部SS"
                    k = 11
                Case "东莞市虎门辉煌家电维修服务部SS"
                    k = 12
                Case "东莞市卓越电子技术有限公司SS"
                    k = 13
                Case "佛山市南海区九江下西艺能家电维修部SS"
                    k = 14
                Case "佛山市顺德区锐进电子维修服务有限公司SS"
                    k = 15
                Case "福清市精工电器维修部SS"
                    k = 16
                Case "广西贵港市港北区博太维修部SS"
                    k = 17
                Case "广西桂林恒信电噐服务有限公司SS"
                    k = 18
                Case "广西凭祥市科讯家电维修中心SS"
                    k = 19
                Case "广西钦州市永锋电子服务部SS"
                    k = 20
                Case "广州市花都区新华远之光电器维修店SS"
                    k = 21
                Case "广州市昇洋创科数码技术服务有限公司SS"
                    k = 22
                Case "广州市增城俊成家用电器维修部SS"
                    k = 23
                Case "河源市腾香广播电视服务中心SS"
                    k = 24
                Case "揭阳市榕丰电器维修服务有限公司SS"
                    k = 25
                Case "茂名市华泰电子技术服务中心SS"
                    k = 26
                Case "梅州松锦维修店SS"
                    k = 27
                Case "南平市延平区赛尔家电维修服务社SS"
                    k = 28
                Case "宁德市蕉城区百信电子维修部SS"
                    k = 29
                Case "三明市三元鹭明家电维修部SS"
                    k = 30
                Case "汕尾市城区平亮电器服务部SS"
                    k = 31
                Case "韶关有线广播电视网络电视音响维修公司SS"
                    k = 32
                Case "石狮市宝湖发达家电维修部SS"
                    k = 33
                Case "梧州广信电器维修服务部SS"
                    k = 34
                Case "武夷山市华兰家电维修中心SS"
                    k = 35
                Case "阳江市江城金辉冷气设备服务部SS"
                    k = 36
                Case "友辉电子技术服务中心SS"
                    k = 37
                Case "玉林市百信家电维修有限公司SS"
                    k = 38
                Case "漳州市芗城区世腾家用电器维修店SS"
                    k = 39
                    
                Case Else
                    k = 32
        
        End Select        Sheets("分站").Cells(k - 7, 2) = Sheets("分站").Cells(k - 7, 2) + 1        Cells(k, 2) = Cells(k, 2) + 1
        i = i + 1
        
        Loop
        
End Sub