Actually, as intended it should have been

Sub AAA()
Set rng = Columns(2).SpecialCells(xlBlanks)
For Each ar In rng.Areas
ar.Value = ar.Offset(11, 0)(1).Value
Next

End Sub

But I like your idea better, so it could be:

Sub AAB()
Set rng = Columns(2).SpecialCells(xlBlanks)
For Each ar In rng.Areas
ar.Value = ar(12).Value
Next

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
Hi Andrew,

Amending, to operate on Column B , and correcting a minor typo in the
offset, Tom's code works for me and reads:

Dim rng As Range, ar As Range

Set rng = Columns(2).SpecialCells(xlBlanks)
For Each ar In rng.Areas
ar.Value = ar.Offset(1, 0)(11).Value
Next

---
Regards,
Norman

"Andrew Lavery" wrote in message
...
Hi Tom,

Thanks for the swift reply. I have tried your suggestion, but nothing
seems to happen??? I am also wondering if I haven't explained the
scenario very well. I have put a screenshot online to help anyone that
has any suggestions.

Screenshots: http://www.slc.auckland.ac.nz/excelexample/

Regards,
Andrew





*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!