Dim Admin As Worksheet
        Dim Adminobj As ListObject
        Dim Adminrow As Listrow
    
        Dim cell As String, arrData, i As Long
    
        
        Set Admin = Workbooks("ROSTER Admin V1.0.xlsm").Worksheets("Shift Approval")
        Set Adminobj = Admin.ListObjects("Shiftapp_tb")
    
        With Workbooks("ROSTER DM V1.0.xlsm").ActiveSheet
        arrData = .Range("AS5").CurrentRegion
        For i = 3 To UBound(arrData, 1)
        If arrData(i, 31) = "Yes" Then
            Set Adminrow = Adminobj.ListRows.Add
            Adminrow.Range(3) = arrData(i, 32)
            Adminrow.Range(4) = arrData(i, 4)
            Adminrow.Range(5) = arrData(i, 5)
            Adminrow.Range(6) = arrData(i, 1)
            Adminrow.Range(7) = arrData(i, 2)
            Adminrow.Range(8) = arrData(i, 3)
            Adminrow.Range(9) = arrData(i, 6)
            Adminrow.Range(10) = arrData(i, 7)
            Adminrow.Range(11) = 0
            Adminrow.Range(12) = arrData(i, 29)
            Adminrow.Range(13) = arrData(i, 10)
            Adminrow.Range(14) = arrData(i, 30)
        End If
        Next i
        End With
        
        With Workbooks("ROSTER DM V1.0.xlsm").ActiveSheet
        arrData = .Range("B5").CurrentRegion
        For i = 1 To UBound(arrData, 1)
        If arrData(i, 16) = "Yes" Then
            Set Adminrow = Adminobj.ListRows.Add
            Adminrow.Range(3) = arrData(i, 10)
            Adminrow.Range(4) = arrData(i, 13)
            Adminrow.Range(5) = arrData(i, 14)
            Adminrow.Range(6) = arrData(i, 2)
            Adminrow.Range(7) = arrData(i, 11)
            Adminrow.Range(8) = arrData(i, 12)
            Adminrow.Range(9) = arrData(i, 15)
            Adminrow.Range(10) = arrData(i, 9)
            Adminrow.Range(11) = arrData(i, 7)
            Adminrow.Range(12) = arrData(i, 6)
            Adminrow.Range(13) = arrData(i, 8)
        End If
        Next i
        End With

Sub Add_attend_data() ' add attandance to data file
    Dim Attend As Worksheet
    Dim Attendlistobj As ListObject
    Dim Attendrow As ListRow
    
    Dim Attenddata As Worksheet 'Sheet2 (all attendance data)
    Dim Attenddataobj As ListObject
    Dim Attenddatarow As ListRow
    
    Set Attend = ThisWorkbook.Worksheets("Attendance")
    Set Attendlistobj = Attend.ListObjects("Attendance_tb")
    Set Attenddata = Workbooks("DATA.xlsm").Worksheets("Attendance_data")
    Set Attenddataobj = Attenddata.ListObjects("Attend_data")
    Dim cell As String, arrData, i As Long
    Dim b As Double
    b = Application.Max(Workbooks("DATA.xlsm").Worksheets("Attendance_data").Range("Attend_data[Operation code]")) + 1
    
    With Worksheets("ATTENDANCE")
    cell = "P"
    arrData = .Range("C9").CurrentRegion
    For i = 2 To UBound(arrData, 1)
    If arrData(i, 13) = cell Then
        Set Attenddatarow = Attenddataobj.ListRows.Add
        Attenddatarow.Range(2) = b
        Attenddatarow.Range(3) = arrData(i, 1)
        Attenddatarow.Range(4) = Sheet2.Range("E3")
        Attenddatarow.Range(5) = Sheet2.Range("E6")
    End If
    Next i
    End With
    Delete_attend
    Sheet2.Range("E3,E6").ClearContents
    Sheet2.Range("Attendance_tb").ClearContents
    Sheet2.Range("Attendance_tb[belt]").ClearFormats
End Sub

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