Macro using advanced Filter

[howard]

I can manually use advanced filter to extract my data m, but when trying to write code to extract the data, only the headings are extracted

Option Explicit

 Sub Extract_Data()
Dim LR As Long
With Sheets("Extracted Data")
LR = Cells(.Rows.Count, "A").End(xlUp).Row
 .Range("A1:G" & LR).ClearContents

  Sheets("Imported Data").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("'Extracted Data'!Criteria"), CopyToRange:=.Range("A1") _
, Unique:=False
End With
End Sub

Kindly check my code and amend

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.