macro copy help

[Stout]

Hi

i'm building a macro that should copy the value from "j1" on sheet1 to "a2" on sheet2 and "k1" on sheet1 to "b2" on sheet2 and so on. I've got some parts to work but not the loop how do i do that? help would be appreciated.

 

[mumps]

Try:

Sub CopyRange()
    Dim lColumn As Long
    lColumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
    Sheets("Sheet1").Range(Cells(1, 10), Cells(1, lColumn)).Copy Sheets("Sheet2").Range("A2")
End Sub

 

[Joe4]

If all the cells are consecutive, and where you are pasting them to is also consecutive, you shouldn't have to copy each cell individually. You should be able to do the whole range at once. Using the Macro Recorder will give you the code you need for this.

If those assumptions aren't correct, you will need to explain your problem in more detail.