Extracting Rows from a table based on list

[JumboCactuar]

Hi,
i am testing this currently with a large dataset (50000) rows and want to extract rows from a table based on a list of order IDs.

My Data table is stored in sheets("Data") - Columns A:N
OrderIDs are stored in column G

So if i have a list of OrderIDs in Sheet1, i want to extract all records where these orderIDs are found to Extract sheet

Not sure if an array is best for this? As i can store full table using:

Dim MyArray() As Variant
MyArray = Range("A2", Range("A1").End(xlDown).End(xlToRight))

Just unsure how to extract the orders quickly

screens
Sheet1: https://puu.sh/E17J6/396b48a352.png
Data: https://puu.sh/E17HE/98296f6512.png
Extract: [Expected] https://puu.sh/E17Jf/c3a34f8143.png


Any help appreciated

 

[Fluff]

How about

Sub JumboCactaur()
   Dim Critrng As Range
   
   With Sheets("Sheet1")
      Set Critrng = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
   End With
   Sheets("Data").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, Critrng, Sheets("Extract").Range("A1")
End Sub

 

[JumboCactuar]

Thanks @Fluff this works perfect

 

[Fluff]

You're welcome & thanks for the feedback