Hi I have the following already written an working:
Workbooks.Open Filename:= _
"P:\word documents\INW Group\SUPPLY & DEMAND\Demand Planner Data.xlsx"
ChDir "P:\word documents\INW Group\SUPPLY & DEMAND\Archive"
ActiveWorkbook.SaveAs Filename:= _
"P:\word documents\INW Group\SUPPLY & DEMAND\Archive\Demand Planner Data_" & Format(Date, "mm-dd-yyyy") & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Columns("A").Find(what:="*", after:=cells(1, 1), LookIn:=xlFormulas).Activate
Selection.AutoFilter
ActiveSheet.Range("$A$25:$BP$64").AutoFilter Field:=4, Criteria1:=">0", _
Operator:=xlAnd
...
Unfortunately the data I am receiving is not consistent and the range that needs to be filtered is not always A25:B64. Is there a way to change this to fit my dilema.
Thanks!
Workbooks.Open Filename:= _
"P:\word documents\INW Group\SUPPLY & DEMAND\Demand Planner Data.xlsx"
ChDir "P:\word documents\INW Group\SUPPLY & DEMAND\Archive"
ActiveWorkbook.SaveAs Filename:= _
"P:\word documents\INW Group\SUPPLY & DEMAND\Archive\Demand Planner Data_" & Format(Date, "mm-dd-yyyy") & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Columns("A").Find(what:="*", after:=cells(1, 1), LookIn:=xlFormulas).Activate
Selection.AutoFilter
ActiveSheet.Range("$A$25:$BP$64").AutoFilter Field:=4, Criteria1:=">0", _
Operator:=xlAnd
...
Unfortunately the data I am receiving is not consistent and the range that needs to be filtered is not always A25:B64. Is there a way to change this to fit my dilema.
Thanks!
