Hi Guys
thanks you for all your help, I have managed to sort this out. My coding was
not allowing the paste columns to be pasted, I had the last know column set
as column D instead of IV once Id changed it it worked, thank you again your
brill
SamijLeeds

"John Bundy" wrote:

I use:
lastCol = Sheets("Find").Cells(1, Columns.Count).End(xlToLeft).Column
my first row always has data, hence the cells(1 portion, yours may not, this
gets the last column, to paste in the next just put lastCol+1
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"samijleeds" wrote:

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)