How to paste columns in first blank column to the right

[pearl]

I'm copying 3 columns and pasting them to the right of the previous columns. I would like to copy these columns to the end of the last column with data.

The goal is so that when and ECM qty button is hit the new ECM's will go to the end of the column instead of shifting everything over.

How do I do that?

Thanks so much,
Pearl


<font face=Courier New>********x = InputBox("Enter ecm Qty")<br><br>********<SPAN style="color:#00007F">For</SPAN> y = 1 <SPAN style="color:#00007F">To</SPAN> x<br><br>************ActiveSheet.Range("c12:e43").Select<br>************Application.CutCopyMode = <SPAN style="color:#00007F">False</SPAN><br>************Selection.Copy<br>************Selection.Insert Shift:=xlToRight<br>************ActiveCell.Offset(0, 3).Select<br><br>****************Range("F12:H12").Select<br>****************ActiveCell = "ECM Name"<br><br>****************Range("f31:h42").Select<br>****************ActiveCell.Offset(0, 3).Select<br>****************[f31:h42].FormulaR1C1 = "=+R[-17]C[-3]- r[-17]c"<br>************** <br>********<SPAN style="color:#00007F">Next</SPAN></FONT>

 

[craig.penny]

This will insert an entire column directly to the right of the last used column on your sheet:

ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count + 1).EntireColumn.Insert

If you've copied something to the clipboard it will show up there.

Let me know if it works for you

 

[pearl]

Yes, that worked!
Thanks

 

[craig.penny]

Great!

You're Welcome!