Automate repititive copy and paste

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