Hope this helps.

PasteCol =Thisworkbook.Sheets(?).Usedrange.Columns.Count + 1
Thisworkbook.Sheets(?).Cells(1, PasteCol).Paste

--
Clifford Roy


"Roy Gudgeon" wrote:

I am attempting to write a macro that copies and adds 6 columns of
information,that are essentially a blank templete, to the end of data that
already exists in the spreadsheet. Further data is then added to the newly
copied template and saved and a new blank template needs to be added.

The issue i have is that when writing the macro the column number where I
want to paste the new cells will always have old data in that would be over
written.

I want the macro to look for the first blank column and paste the new
template here, is that possible ?

thanks
Roy
--
thanks
Roy