title: Copy values from one sheet to another and remove duplicates?
body: <p>Hi I am trying to make one sheet's columns equal to another's without using copy and paste thinking that this will run faster. Then I am trying to remove the duplicate values in the new sheet's column(s). The code I have works, but since there is so much data it is slow!</p>
  
  <pre><code>Dim ws As Worksheet
  Set ws = ThisWorkbook.Sheets("COMP29")
  ws.Columns(15).Copy Destination:=Sheets("TEMPLIST1").Columns(1)
  
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  'Remove Duplicates, Sort, and Name Temp Worksheet
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  
  Dim LastRow As Long
  
  'Name
  ActiveSheet.Name = "TEMPLIST1"
  
  'Remove Duplicates
  With ActiveSheet
      LastRow = .Range("A" &amp; .Rows.Count).End(xlUp).Row
      .Range("A1:B" &amp; LastRow).RemoveDuplicates Columns:=Array(1, 1), Header:=xlYes
  End With
  </code></pre>
  
  <p>Is there a more efficient way to achieve this? With the unique list I am populating a ComboBox on DropButtonClick. Thank you!</p>