With shAdmin
  For Each iCl In .Range("C1:C" & .Cells(.Rows.Count, 3).End(xlUp).Row).Cells
    If iCl = "Full Name" Then
    arr = iCl.Offset(, -1).CurrentRegion.Value
    For I = LBound(arr, 1) + 1 To UBound(arr, 1)
      If arr(I, 16) = "Yes" Then
        N = N + 1
        newArr(N, 1) = arr(I, 10)
        newArr(N, 2) = arr(I, 13)
        newArr(N, 3) = arr(I, 14)
        newArr(N, 4) = arr(I, 2)
        newArr(N, 5) = arr(I, 11)
        newArr(N, 6) = arr(I, 12)
        newArr(N, 7) = arr(I, 15)
        newArr(N, 8) = arr(I, 9)
        newArr(N, 9) = arr(I, 7)
        newArr(N, 10) = arr(I, 6)
        newArr(N, 11) = arr(I, 8)
      End If
    Next
  Next
End With

tAdminrow.Range(3).resize(1,12)=tArr

        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