I have a range that I autofilter and then copy a subtotal to another sheet.
I have a column of specific dates in col 1 of sheet3 that represent each
date I need to autofilter for. Is there a way to loop down through the dates
on sheet3 and then use each successive loop (cell) value for my variable
Data1 which is my Criteria1 autofilter sort value?

Thanks,
Don


Sub Macro1()

Dim Data1 As String
Dim Data2 As String

Data1 = Sheets("Sheet3").Cells(2, 1).Value
Data2 = Sheets("Sheet3").Cells(3, 1).Value
Data3 = Sheets("Sheet3").Cells(4, 1).Value
Data4 = Sheets("Sheet3").Cells(5, 1).Value

nextrow = Range("J2000").End(xlUp).Row + 1

Sheets("Sheet1").Select
Range("A3:I3000").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Data1
Range("E1:I1").Select
Selection.Copy
Sheets("Sheet3").Select
nextrow = Range("J2000").End(xlUp).Row + 1
Cells(nextrow, 10).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Calculate
Sheets("Sheet1").Select
Range("A3:I3000").Select
Selection.AutoFilter
Calculate
Selection.AutoFilter Field:=2, Criteria1:=Data2
Range("E1:I1").Select
Selection.Copy
Sheets("Sheet3").Select
nextrow = Range("J2000").End(xlUp).Row + 1
Cells(nextrow, 10).PasteSpecial Paste:=xlPasteValuesAndNumberFormats