有关销售出库单的函数及VBA问题

pondwish

对VBA一窍不通，按照论坛上的例子自己做了个销售单统计的表格，各位大侠给看看是哪里出了问题啊！
代码如下：
Sub 销售小票确认()
FFF = Range("辅助表!O2")
GGG = Range("辅助表!P2")
    Range(GGG).Select
    Selection.Copy
    Sheets("数据库").Select
    Range(FFF).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Sheets("录入单").Select
    Range("A4:A8,E4:F8").Select
    Range("A4").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A4").Select
End Sub