title: Pull unique product id from a dataset and corresponding other column values to a new sheet
body: <p>I have a macro that can pull unique data from &quot;Column A&quot; but I also want the corresponding values from other columns of those unique values from Column A and I want them on a different spreadsheet. I tried using Worksheet Vlookup function in the code but it takes way too long for the dataset of over 70,000 rows and 42 columns. The code -</p>
  <pre><code>Sub UniqueProductDetails()
  
  Dim ws1 as worksheet
  Dim ws2 as worksheet
  
  Ws1 = Worksheets(“Source”)
  Ws2 = Worksheets(“Destination”)
  
  SRow = Ws1.range(“A” &amp; Rows.count).End(xlUp).Row 
  
  Ws1.Range(“A1:A” &amp; SRow).AdvancedFilter Action:=xlFilterCopy, Unique=True, copytorange:=ws2.range(“A1”) 
  
  'This code provides unique column A values in the Destination sheet
  
  End Sub()  
  </code></pre>
  <p>Data and Output is in this format
  <a href="https://i.stack.imgur.com/XV5pc.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/XV5pc.png" alt="enter image description here" /></a></p>