Copy range to last used-column

[bgonen]

I am trying to add a command of copy range B2:O2 (in ws; TMHP-PL) to range of P2:to last used column (also in TMHP-PL ws)
The last column used is actually shown on row 3
The procedure goes like this but I am only able to copy/paste partially:

Sub CopyPasteAcrossColumnsFINAL2()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
With Sheets("structure")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
.Range("A" & i).Copy Destination:=Sheets("TMHP-PL").Cells(3, 14 * i - 12).Resize(, 13)
Next i
End With
Dim LC As Long
LC = Cells(3, Columns.Count).End(xlToLeft).Column
Range("B2:O2").Copy
Range(Cells(2, 16), Cells(2, LC)).PasteSpecial Paste:=xlPasteFormulas

End Sub

 

[VoG]

Maybe

Sub CopyPasteAcrossColumnsFINAL2()
Dim LR As Long, i As Long
Dim LC As Long
Application.ScreenUpdating = False
With Sheets("structure")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        .Range("A" & i).Copy Destination:=Sheets("TMHP-PL").Cells(3, 14 * i - 12).Resize(, 13)
    Next i
End With
With Sheets("TMHP-PL")
    LC = .Cells(3, Columns.Count).End(xlToLeft).Column
    .Range("B2:O2").Copy
    .Cells(2, LC+1).PasteSpecial Paste:=xlPasteFormulas
End With
End Sub

 

[bgonen]

Strange,
The range B2:O2 is getting pasted starting on the last used column (GCG2)

But nothing get pasted between P2 forward (up to the last used column)

 

[VoG]

I don't really understand what you are trying to do.

 

[VoG]

Maybe something like this

Sub CopyPasteAcrossColumnsFINAL2()
Dim LR As Long, i As Long
Dim LC As Long, j As Long
Application.ScreenUpdating = False
With Sheets("structure")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        .Range("A" & i).Copy Destination:=Sheets("TMHP-PL").Cells(3, 14 * i - 12).Resize(, 13)
    Next i
End With
With Sheets("TMHP-PL")
    LC = .Cells(3, Columns.Count).End(xlToLeft).Column
    .Range("B2:O2").Copy
    For j = 16 To LC + 1 Step 14
        .Cells(2, j).PasteSpecial Paste:=xlPasteFormulas
    Next j
End With
End Sub

 

[bgonen]

This is it Peter
I think I will go underground for a while after I bugged you so many times

Lots of thanks
Boaz