title: VBA code to copy and paste certain data from sheet to another
body: <p>I'm new to VBA and I know there has to be a simpler and more efficient way of writing this code, but not familiar with the correct functions (like how to paste to the next worksheet without pasting over existing data).  It works for smaller worksheets but I have to use it on worksheets with 60000+ lines.  Any help will be greatly appreciated.  Thanks in advance.</p>
  
  <pre><code>Sub test()
      Dim row As Long
      With Excel.Application
          .ScreenUpdating = False
          .Calculation = Excel.xlCalculationManual
          .EnableEvents = False
      End With
  
  For row = 1 To 65500
  If ThisWorkbook.ActiveSheet.Cells(row, 14) &lt;&gt; "" Then
      ThisWorkbook.ActiveSheet.Cells(row, 1).EntireRow.Copy
      ThisWorkbook.ActiveSheet.Paste Destination:=ThisWorkbook.Sheets("SCO").Cells(row, 1)
      ThisWorkbook.ActiveSheet.Cells(row + 1, 1).EntireRow.Copy
      ThisWorkbook.ActiveSheet.Paste Destination:=ThisWorkbook.Sheets("SCO").Cells(row + 1, 1)
  
  End If
  
  Next
  
  For row = 1 To 65500
  If ThisWorkbook.Sheets("SCO").Cells(row, 14) = "" Then
      ThisWorkbook.Sheets("SCO").Cells(row, 20).Value = 2
  End If
  Next
  For x = 65500 To 1 Step -1
      If ThisWorkbook.Sheets("SCO").Cells(x, 3) = "" Then
      ThisWorkbook.Sheets("SCO").Cells(x, 1).EntireRow.Delete
  End If
  Next
  For row = 1 To 65500
  If ThisWorkbook.Sheets("SCO").Cells(row, 20) = 2 Then
      ThisWorkbook.Sheets("SCO").Cells(row + 1, 1).EntireRow.Insert shift:=xlDown
  End If
  
  Next
  
  With Excel.Application
      .ScreenUpdating = True
      .Calculation = Excel.xlAutomatic
      .EnableEvents = True
  End With
  
  End Sub
  </code></pre>