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:
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