You do not have to go back and forth to do what you like. Something like

for each c in selection
if isnumber(c) and c<5 then c.offset(0-4) .copy sheets("sheet2").range("a1")
next

--
Don Guillett
SalesAid Software

"saziz " wrote in message
...
I want my macro to skip an empty cell and go to next if there is no
(numerical) data in the cell. Can you Please tell me how can I include
this in my macro.
I am want my macro to be precise with least amount of lines.
Here is what I am doing:
select cell
if value is < than say 5
select 4 cells to its left copy (I am giving relative cell address)
goto another sheet,
select a range
insert copied cells
goback to sheet
goto next cell ( down)
do the same
if no data stop macro

Thank you for helping.


---
Message posted from http://www.ExcelForum.com/