I have code to use advanced auto filter to extract data from range B6:J & R6:R
I get application defined or object defined error and the code above is highlighted
It would be appreciated if someone could assist me
Sub Extract()
Code:
With ActiveSheet.Range("B6:J,R6:R" & Lastrow)
I get application defined or object defined error and the code above is highlighted
It would be appreciated if someone could assist me
Sub Extract()
Code:
Sheets("Imported Data").Select
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
With ActiveSheet.Range("B6:J,R6:R" & Lastrow)
.AutoFilter Field:=1, Criteria1:=Array("DM", "RK"), Operator:=xlFilterValues
.AutoFilter Field:=2, Criteria1:=Array("P1", "LX"), Operator:=xlFilterValues
.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sales by Region").Range("A2")
.AutoFilter
End With
End Sub