run time error 1004 application defined or object defined error

[asad.ermo]

Please Login or Register  to view this content.

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

[AliGW]

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[asad.ermo]

The post is edited as per the instructions

[AliGW]

Not yet. You need to add code tags (not format the text in a different colour). Instructions in post #2. Do this NOW, please.