Application Defined or Object defined error

bennyamy · #1 03-22-2017, 08:57 AM

I have the below coding and the first "ar" range copy works perfectly.
I added the "mr" & "nr" so it could paste down the blank rows below the cells are non blank, basically copy & paste down. I get the error on code line:

Code:

mr(0).Copy mr

I also attached a copy of the spreadsheet with the correct results in column C (ar)
What am I missing?

Code:

Dim rng As Range, ar As Range
Dim nr As Range
Dim mr As Range

Set rng = Columns(3).SpecialCells(xlBlanks)
For Each ar In rng.Areas
ar(0).Copy ar
Next
      
Set rng = Columns(13).SpecialCells(xlBlanks)
For Each mr In rng.Areas
mr(0).Copy mr
Next

Set rng = Columns(14).SpecialCells(xlBlanks)
For Each nr In rng.Areas
nr(0).Copy nr
Next

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
FileSystemObject Compile Error: User-Defined Type Not Defined	gsrikanth	Excel Programming	2	03-28-2022 06:32 AM
User-defined Type not Defined VBA Issue	OTPM	Project	3	01-02-2014 01:47 PM
Range.Information(wdStartOfRangeRowNumber): Application-defined or Object-defined err	tinfanide	Excel Programming	2	06-09-2012 10:19 AM
Application-defined or Object-defined error	Manit	Excel Programming	4	12-08-2011 07:35 PM
Compile error: sub or function not defined..	xena2305	Excel Programming	0	08-02-2011 10:17 AM