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
Kindly check my code and amend
Option Explicit
Code:
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