Vba to create report

Try:

Sub CreateReport()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim sDate As String
    Dim eDate As String
    sDate = InputBox("Please enter the start date in format mm/dd/yyyy", "Enter Start Date", "mm/dd/yyyy")
    eDate = InputBox("Please enter the end date in format mm/dd/yyyy", "Enter End Date", "mm/dd/yyyy")
    ActiveSheet.ListObjects("Table_Query_from_MS_Access_Database3").Range. _
        AutoFilter Field:=3, Criteria1:=">=" & CDate(sDate), Operator:=xlAnd, Criteria2:="<=" & CDate(eDate)
    Range("C1") = WorksheetFunction.Min(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    Range("C2") = WorksheetFunction.Max(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    Range("C3") = WorksheetFunction.Average(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    Application.ScreenUpdating = True
End Sub

Try:

Sub CreateReport()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim sDate As String
    Dim eDate As String
    sDate = InputBox("Please enter the start date in format mm/dd/yyyy", "Enter Start Date", "mm/dd/yyyy")
    eDate = InputBox("Please enter the end date in format mm/dd/yyyy", "Enter End Date", "mm/dd/yyyy")
    ActiveSheet.ListObjects("Table_Query_from_MS_Access_Database3").Range. _
        AutoFilter Field:=3, Criteria1:=">=" & CDate(sDate), Operator:=xlAnd, Criteria2:="<=" & CDate(eDate)
    Sheets("Sheet2").Columns("H").ClearContents
    Sheets("Sheet2").Range("I4:K4").ClearContents
    Sheets("Sheet2").Cells(1, 8) = sDate
    Sheets("Sheet2").Cells(2, 8) = eDate
    Range("B12:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Sheet2").Cells(4, 8).PasteSpecial xlPasteValues
    Sheets("Sheet2").Cells(4, 9) = WorksheetFunction.Min(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    Sheets("Sheet2").Cells(4, 10) = WorksheetFunction.Max(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    Sheets("Sheet2").Cells(4, 11) = WorksheetFunction.Average(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

When I try it, it copies the values from column B based on the start and end dates entered, the start and end dates in I1 and I2 and the min, max and average in I4:K4. Do you not get the same thing?

Try this macro. It also removes the duplicate Tool Names in Sheet2. I assumed that is what you wanted. If not, just delete the "RemoveDuplicates" line of code.

Sub CreateReport()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim ToolName As Range
    Dim sDate As String
    Dim eDate As String
    sDate = InputBox("Please enter the start date in format mm/dd/yyyy", "Enter Start Date", "mm/dd/yyyy")
    eDate = InputBox("Please enter the end date in format mm/dd/yyyy", "Enter End Date", "mm/dd/yyyy")
    ActiveSheet.ListObjects("Table_Query_from_MS_Access_Database3").Range. _
        AutoFilter Field:=3, Criteria1:=">=" & CDate(sDate), Operator:=xlAnd, Criteria2:="<=" & CDate(eDate)
    Sheets("Sheet2").Columns("H").ClearContents
    Sheets("Sheet2").Range("I4:K" & Range("K" & Rows.Count).End(xlUp).Row).ClearContents
    Sheets("Sheet2").Cells(1, 8) = sDate
    Sheets("Sheet2").Cells(2, 8) = eDate
    Range("B12:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy
    Sheets("Sheet2").Cells(4, 8).PasteSpecial xlPasteValues
    For Each ToolName In Range("B12:B" & LastRow).SpecialCells(xlCellTypeVisible)
        ActiveSheet.ListObjects("Table_Query_from_MS_Access_Database3").Range. _
        AutoFilter Field:=2, Criteria1:=ToolName
        Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "I").End(xlUp).Offset(1, 0) _
            = WorksheetFunction.Min(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
        Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "J").End(xlUp).Offset(1, 0) _
            = WorksheetFunction.Max(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
        Sheets("Sheet2").Cells(Sheets("Sheet2").Rows.Count, "K").End(xlUp).Offset(1, 0) _
            = WorksheetFunction.Average(Range("D12:D" & LastRow).SpecialCells(xlCellTypeVisible))
    Next ToolName
    Sheets("Sheet2").Cells.RemoveDuplicates Columns:=Array(8), Header:=xlNo 'removes entire row
    Range("A11").AutoFilter
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Have a look at the attached file. When I filter on a2 with the dates between 02/01/2018 and 02/02/2018, which are the dates that you used, I get the results shown in sheet "TnG-000". The Min, Max and Avg matches the data for a2 in Sheet2. Please note that I have made a few changes to the macro, so please use the version in the attached file.

Try the attached file. There may be a more elegant way of doing this but this is what worked for me. Just click the "Create Report" button. Give the macro a chance to run depending on how much data it has to process.

What start and end dates did you enter?

I think that if you enter a date that doesn't exist, you get the error. I've modified the macro to warn you if you enter a non-existent date. Try the attached file and enter 01/06/2018 and 01/08/2018.

I have no idea!!! Let's force it to select A11. Place this line of code:

Sheets("TnG-000").Range("A11").Select

above this line:

sDate = InputBox("Please enter the start date in format mm/dd/yyyy", "Enter Start Date", "mm/dd/yyyy")

Try the attached file.

Try the attached.

Try the attached.