run time error 1004 application defined or object defined error

When executing following code in VBA

Sub CopyMultiples()
Dim c As Range
Const NumCopies As Long = 2

For Each c In Columns("A").SpecialCells(xlConstants)
c.Copy Destination:=c.Resize(NumCopies + 1)
Next c
End Sub

an error message "run time error 1004 application defined or object defined error" is displayed.

Please note that the Columns "A" consists of 73000 cell, i.e. A1:A73000.
A screenshot of the error is also attached