Sub ProdFlag_v3()
'Run this on a ProductReport to find records without any specs and copy all of the records _
without specs onto a separate worksheet (only copy columns A-G).  Analysis tab added with pivot tables.
Application.ScreenUpdating = False
Dim PRtable As Range, rngX As Range, SpecHeader As Variant
Dim PRTableRows As Long, PRTableColumns As Long
Dim PRsht As Worksheet, nsPRsht As Worksheet
Dim FinalRow As Long, i As Long
Dim IstatActive As Variant, IstatInactive As Variant

Istat = "Item Status"

Set PRsht = Worksheets("Export Worksheet")

PRTableRows = PRsht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
PRTableColumns = PRsht.Cells.Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column

Set PRtable = PRsht.Range("A1", Cells(PRTableRows, PRTableColumns))

Sheets.Add After:=ActiveSheet
Sheets("Sheet1").Name = "NoSpecs"

Set nsPRsht = Worksheets("NoSpecs")
FinalRow = Cells(Rows.Count, 2).End(xlUp).Row
PRsht.Range("1:1").AutoFilter

  For Each SpecHeader In PRsht.Range("H1:BM1").Cells
      Range(SpecHeader.Offset(1), SpecHeader.Offset(FinalRow)) _
      .AutoFilter Field:=SpecHeader.Column, Criteria1:="="
  Next SpecHeader
  
PRtable.Resize(PRTableRows, 7).Copy _
nsPRsht.Range("A1")
Application.CutCopyMode = False
PRsht.ShowAllData
nsPRsht.Range("A1").Select