Range(selection, selection.End(xlDown)).Select

Change it to read as follows

Selection.End(xlDown).Select



'
' Macro7 Macro
' Macro recorded 2005/03/31 by asmith2
'

'
Range("A9:E9").Select
Range(selection, selection.End(xlDown)).Select
selection.Copy
End Sub