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)