Sub Fill_report()
    Dim cell As String, arrData, i As Long, n

    Dim Rpdata As Worksheet
    Dim Rpdataobj As ListObject
    Dim Rpdatarow As ListRow
    
    Dim Rp As Worksheet
    Dim Rpobj As ListObject
    Dim Rprow As ListRow
    
    Set Rpdata = ThisWorkbook.Worksheets("Report_data")
    Set Rpdataobj = Rpdata.ListObjects("Report_tb")
    
    Set Rp = ThisWorkbook.Worksheets("Report")
    Set Rpobj = Rp.ListObjects("Reportcharge_tb")
    n = Application.Min(Worksheets("Report_data").Range("Report_tb[Order check]"))

    With Worksheets("Report_data")
        arrData = .Range("A1").CurrentRegion
        For i = 2 To UBound(arrData, 1)
            If arrData(i, 4) = n Then
            Set Rprow = Rpobj.ListRows.Add()
                Rprow.Range(1) = arrData(i, 1)
            End If
        Next i
    End With
End Sub

Datanozzlerow.Range(2) = Format(Parts_used.TextBox2.value, "mm/dd/yyyy") 

Parts_used.TextBox11.value = Format(cell.Cells(1, 3).value, "#,##0.00")

Sub Redesigner()
    Dim inpdata As Range, realdata As Range, ns As Worksheet
    Dim i&, j&, k&, c&, r&, hc&, hr&
    Dim out(), dataArr, hcArr, hrArr
    Dim Dashboard As Worksheet
    Dim Dashboardobj As ListObject
    Dim Dashboardrow As ListRow

    Sheet9.Activate
    Sheet9.Range("Members_data_tb[[#All],[Code]:[Sun2]]").Select
    hr = 1
    hc = 1
    Set inpdata = Selection
    
    If inpdata.Rows.Count <= hr Or inpdata.Columns.Count <= hc Then Exit Sub
    Set realdata = inpdata.Offset(hr, hc).Resize(inpdata.Rows.Count - hr, inpdata.Columns.Count - hc)
    dataArr = realdata.value

    If hr Then hrArr = inpdata.Offset(0, hc).Resize(hr, inpdata.Columns.Count - hc).value
    If hc Then hcArr = inpdata.Offset(hr, 0).Resize(inpdata.Rows.Count - hr, hc).value

    ReDim out(1 To Application.CountA(realdata), 1 To hr + hc + 1)
    Set ns = Sheet11
   
    For i = 1 To UBound(dataArr, 1)
        For j = 1 To UBound(dataArr, 2)
            If Not IsEmpty(dataArr(i, j)) And (dataArr(i, j)) <> "" Then
            
                k = k + 1
                For c = 1 To hc: out(k, c) = hcArr(i, c): Next c
                For r = 1 To hr: out(k, c + r - 1) = hrArr(r, j): Next r
                out(k, c + r - 1) = dataArr(i, j)
            End If
    Next j, i
    ns.Cells(2, 2).Resize(UBound(out, 1), UBound(out, 2)) = out

End Sub

Private Sub Add_new_requestor()
    Dim SheetClient As Worksheet
    Dim SheetClientListobj As ListObject
    Dim SheetClientlistrow As ListRow
    Dim cell As Range, r As Long
    Set SheetClient = ThisWorkbook.Worksheets("Client&Requestor")
    Set SheetClientListobj = SheetClient.ListObjects("Requestor_tb")
    Set cell = SheetClientListobj.ListColumns.Item(1).Range.Find(Me.Requestor_Cbox.Value, lookat:=xlWhole)
    If Not cell Is Nothing Then
    Exit Sub
    Else
    r = MsgBox("Would you like to add a requestor to the list?", vbYesNo, "Execution request")
    If r = vbNo Then
    Exit Sub
    Else
    Set SheetClientlistrow = SheetClientListobj.ListRows.Add
    SheetClientlistrow.Range(1) = Me.Requestor_Cbox.Text
    End If
    End If
End Sub

Dim DateTime As Date

Private Sub Workbook_Open()
    DateTime = Now + #12:10:00 AM#
    Application.OnTime DateTime, "TimeOut"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime DateTime, "TimeOut", , False
End Sub

Private Sub TimeOut()
    ThisWorkbook.Close True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Workbook_BeforeClose False
    Workbook_Open
End Sub

Sub DeleteRows()
Dim rng as Range, value, i as Long
Set rng = worksheets("Details").Range("Table17[Check]")
For i = rng.Rows.Count to 1 Step -1
Value = rng.Cells(i,1).value
if (value = worksheets("Details").Range("AD1") Then
rng.Rows(i).EnterRow.Delete
End If
Next i
End Sub