Snasui Excel Forum

Code: Select all

180   startRow = tblFiltered.HeaderRowRange.Row

      'Find last row on Filtered tab (deduct 1 since Advanced filter retrieves the headers)
190   lastRow = wsOP.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row - 1
      'If the last raw is greater than the Header row, resize the Filtered table and delete the retrieved Headers (which will be in the first row of the Filtered table)
200   If lastRow > startRow Then
210       Set resizeRng = Range("table2[#All]").Resize(tblFiltered.Range.Rows.Count + (lastRow - startRow), tblFiltered.Range.Columns.Count)
220       tblFiltered.Resize resizeRng
230       tblFiltered.ListRows(11).Delete

Code: Select all

 tblFiltered.ListRows(11).Delete

Code: Select all

180   startRow = tblFiltered.HeaderRowRange.Row

Code: Select all

With Sheets("Output")
    .PageSetup.PrintArea = .Range("a8", .Range("l" & .Rows.Count).End(xlUp))
End With