Vba code take so much time to copy and paste

[getsomex]

hello I am trying to copy columns one sheet to another however it takes so much time to copy.
i have tried this code below. I have lots of data it takes several time with this code. any tips to make this code more efficient?

Dim lastrow, erow As Long
lastrow = Worksheets("sheet 2").Cells(Rows.Count, 
1).End(xlUp).Row


For i = 2 To lastrow

Worksheets("sheet 1").Cells(i, 1).Copy

erow = Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row

 Worksheets("sheet 1").Paste Destination:=Worksheets("sheet2").Cells(erow + 
  1, 1)

  Worksheets("sheet 1").Cells(i, 3).Copy

  Worksheets("sheet 1").Paste Destination:=Worksheets("sheet2").Cells(erow + 
  1,  3)


   Next i
  Application.CutCopyMode = False
Worksheets("Sheet1").Cells(1, 1).Select

 

[RoryA]

Welcome to the forum.

Please take a minute to read the forum rules, especially as regards cross-posting, and then update this thread with links to your post(s) in any other forum(s). Thanks.