Hi Don

Boy your quick , thanks very much for you reply but it still keeps pasting
into the same coulmn

here is my full code, I may have something wrong in the code
thanks again for your help
Kind regards
Samijleeds

"Don Guillett" wrote:


you might like this better
LastCol = Sheets("Finds").cells(1,columns.count).End(xlToLef t).Column+1


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"samijleeds" wrote in message
...
Hi Guys

I have a question you may find a bit daft but it has me stumped.

I have a macro that finds the data I am looking for and pastes it into a
new
worksheet ok but what I would like it to do is look along the columns and
find the next blank column and paste the data there so that with each
paste
the macro will paste the new data into the next blank available column.

so first past will be in column A, then next paste in column B then next
in
C and so on I have this code at the moment but all it does is find the
same
column and over write the data that is already there

Dim LastCol As Long

LastCol = Sheets("Finds").Range("IV1").End(xlToLeft).Offset( 0, 1).Column

Ive searched through all the posts and have found it very very helpful for
other things but cant find anything on this

Thanks for you help in advance

SAMIJLeeds (West Yorkshire, UK)