Copy selected cells across to last column

[channel7]

I have several cells in column B which I would like to copy across under all the columns on the worksheet automatically using a macro.

I currently have a macro which pastes data in from another workbook and the bottom twelve cells in column B are part of a template. I need these twelve cells copied under all the columns which are copied over automatically.

So if four columns are pasted into the worksheet then the twelve cells under column B are then copied under C,D, and E. The twelve cells contain formulas for handling the data in each column.

The twelve cells are B80 through B91. Copied over they will be pasted into C80:C91, D80:D91,...etc.

 

[VoG]

Try

Sub test5()
Range("B80:B91").Copy Destination:=Range("C80:E80")
End Sub

 

[VoG]

To get this to go to the last column. where last column is defined (by me ) as the last column with values in row 1

Sub test5()
Dim LC As Integer
LC = Cells(1, Columns.Count).End(xlToLeft).Column
Range("B80:B91").Copy Destination:=Range(Cells(80, 3), Cells(80, LC))
End Sub

 

[channel7]

Thanks, VoG II!

That does take care of copying the cells over. Do you know of a way to make the last column variable? Sometimes four columns will be pasted, sometimes only one.

I can hard code the template to have the cells pre-filled across several columns before anything is pasted but I wanted it to look nicer than that for the end users.

 

[channel7]

Oops! I see you may have already answered my second question as I posted it!

I will check this out and get back with you. Thanks, again for the help!!

 

[VoG]

Thanks, VoG II!

That does take care of copying the cells over. Do you know of a way to make the last column variable? Sometimes four columns will be pasted, sometimes only one.

I can hard code the template to have the cells pre-filled across several columns before anything is pasted but I wanted it to look nicer than that for the end users.

I think I did that in the code that I posted whilst you were posting your reply. If not, what defines the last column?