Copy and Paste to first Blank Column

Hi Adam,

It sounds like you need to find the first blank column moving to the right. To do this you need...

Dim LastCol as double

LastCol = cells(1,Columns.Count).End(xlToLeft).Column


The above code starts in Row 1 and the right most column and then does a Ctrl+Right to hit the first cell which isn't empty. That column number is LastCol. You then need to add 1 to this number to see which column to paste your next chunk of data. If you supply a sample workbook it is much easier to show you.



Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.