sub AddValues()
dim rng as Range, cell as Range
On error resume next
set rng = columns(7).SpecialCells(xlblanks)
On Error goto 0
if not rng is nothing then
rng.FormulaR1C1 = "=R[-1]C"
for each cell in rng
cell.formula = cell.value
Next
end if
end Sub

--
Regards,
Tom Ogilvy

"GSXR1000" wrote:


Can someone help me with this. I enter lists of number sometimes the
same repeatily in column. Like G17 would be 76.2 and G18 and G19 are
the same. Can set code to look at the cell above and copy it if no data
is entered? We go right to left, our move selection after enter is
right, just though this might be helpfull.

Thanks


--
GSXR1000
------------------------------------------------------------------------
GSXR1000's Profile: http://www.excelforum.com/member.php...o&userid=37398
View this thread: http://www.excelforum.com/showthread...hreadid=570825