Copy and paste 13 columns across from one sheet to another

[bgonen]

Looks like I'm stuck with these commands;I'm trying to separate the data (in structure tab) and execute the commands in "TMHP-PL" tab


Sub CopyPasteAcrossColumnsFINAL()
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
.Sheets("TMHP-PL") = Cells(3, 1 * i + 1).Resize(, 13)
Next i
End With
End Sub

 

[VoG]

I think it should be more like

Sub CopyPasteAcrossColumnsFINAL()
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 + 3).Resize(, 13)
    Next i
End With
End Sub

 

[bgonen]

It works fine
but I'm struggling to change the start cell from P3 i.e (.Cells(3, 14 * i + 3)

to B3,,,

Is there a way to simplify this command?
Thanks

 

[VoG]

Is it?

Sub CopyPasteAcrossColumnsFINAL()
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.5 * i = 2.667).Resize(, 13)
    Next i
End With
End Sub

 

[bgonen]

sorry, something wrong I get an application define error
I apologize,,, maybe I didn't explain myself clear;

with this procedure:

.Range("A" & i).Copy Destination:=Sheets("TMHP-PL").Cells(3, 14 * i + 2).Resize(, 13)
I am able to copy the data starting at cell P3
But if I want to start from cell B3 then I had changed the command as follow:

.Range("A" & i).Copy Destination:=Sheets("TMHP-PL").Cells(3, 1 * i + 1).Resize(, 13)
But then I get awkward results

 

[VoG]

Sorry I had a typo plus my equation was wrong

Sub CopyPasteAcrossColumnsFINAL()
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
End Sub

 

[bgonen]

so the "-12" did the trick
Thanks a lot,,
I appreciate not giving up on me,,,
Boaz