Macro to use existing code but paste into next empty column

[rmmohan]

Hi everyone, thanks to your help I've been able to get this far. But I just have one more question.

Here is my current code:

Sub Trend()
Application.ScreenUpdating = 0
Dim LC&, i&, ms As Worksheet
Set ms = Sheets("08ITEMHISTORY")
 With Sheets("07ITEMMETRICS")
 
    LC = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    For i = 6 To LC
      .Cells(1, i).Resize(.Cells(.Rows.Count, i).End(xlUp).Row).Copy
       ms.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
    Next i
 End With
Application.CursorMovement = 0
Application.ScreenUpdating = True
End Sub

It's taking multiple columns from a specific worksheet and pasting them into one column on a different worksheet.

But I need to be able to run the macro several times and each time have it paste into the next empty column.
So say after running the macro three times I have three separate columns.

As of right now the macro just pastes the data beneath the same column instead of moving over.
I think this belongs in the code somewhere: End(xlToLeft).Offset(0, 1).Select

I just can't figure it out.
Thank you in advance for your help!!