Set cell1A = cell1.Offset(cell1.Count+1, 0)(1)

or
Set cell1A = cell1.offset(1,0)
--
Regards,
Tom Ogilvy

"Les Stout" wrote in message
...
Hi Tom, now i need to look up another value in the same way, but it must
go into the cell below the one that has just been put in by your code.
Do i just copy your code and look up a different column and then branch
to this code after the first proceedure ? If so then i know how to
change the columns to look for the right value in the Module sheet but I
need to now how to go down one cell below the Tot value that has just
been put in ? I it this proceedure and i must change 0 to 1 ?

Set cell1 = cell1.Offset(cell1.Count, 0)(1)

Thanks

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***