Automate repititive copy and paste

Hi,

I have the following task which I tried to record as a macro but could not get it to paste at the required location.

I have data in columns K to Z, each with data from rows 1 to 120

I would like a macro to copy data from column K, rows 1 to 120 and paste the data to column E, rows 1 to 120
Next, copy data from column L, rows 1 to 120 and paste to column E, rows 121 to 241
Next, copy data from column M, rows 1 to 120 and paste to column E, rows 242 to 362
and so on until the final column Z, rows 1 to 120 and paste to column E, rows .....

I tried a few recording of the steps but I am unable to get it to work.

Sub Cut_Paste()
'
' Cut_Paste Macro
'

'
    Range("K1:K120").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-81
    Range("E1").Select
    ActiveSheet.Paste
    Range("L1:L120").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E121").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=24
End Sub

Thank you

Raury

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

Try this instead:

Option Explicit

Sub Raury()
Dim lc As Long
Dim lr As Long
lc = Cells(1, Columns.Count).End(xlToLeft).Column
Dim i As Long

For i = 11 To lc
lr = Cells(Rows.Count, "E").End(xlUp).Row
Range(Cells(1, i), Cells(120, i)).Copy Range("E" & lr + 1)

Next i


End Sub