MACRO TO LOOK through large dataa.

Something like this:

Sub ShellyBelly(): Dim k As Long, c As Long, ws As Worksheet, wa As Worksheet, H, D As Range, n As Long
    Set wa = ActiveSheet: c = wa.Columns.Find("*", , , , xlByColumns, xlPrevious).Column
                        wa.copy After:=wa: Set ws = ActiveSheet
H = Array("Year", "Month", "Week", "Date", "Name", "Status", "Tenure", "Accuracy", "Production Time")
                For k = 1 To c: For n = 0 To UBound(H)
                If Trim(ws.Cells(1, k)) = H(n) Then GoTo GetNext
                Next n
                If D Is Nothing Then
                Set D = ws.Columns(k)
                Else
                Set D = Union(D, ws.Columns(k)): End If
GetNext:        Next k
                D.Delete
End Sub