I have the following code and everytime I run it I get a debugger message
that says the code is interrupted.  I'm not sure how to correct this.  Can
anyone help?

Sub COPY()
'
' COPY macro
'

'select area and clear
   Range("C6").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.ClearContents
'select area and copy
   Range("A6").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.COPY
'select area and paste special values
   Range("C6").Select
   ActiveWindow.SmallScroll Down:=-12
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
       :=False, Transpose:=False
'select area and copy
   Range("A1").Select
       Application.CutCopyMode = False
   Selection.COPY
'select area and paste special values multiply
   Range("C6").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
       SkipBlanks:=False, Transpose:=False
End Sub