Parse Data but exclude certain Values

[JoshuaD]

Good Afternoon!!

I have been trying to figure out a way to modify my code that parses data by filtering the table, to exclude the cells that have the value "True" and only parse out the other values.

If you have any ideas it would greatly be appreciated!!

Sub Parse_Data()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer

'Remove if you do not want it to ignore Hidden cells
Dim rWork As Range
Set rWork = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
'
'
vcol = 4
Set ws = Sheets("Pivot Table")
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = "A1:E1"
titlerow = ws.Range(title).Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
For i = 2 To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter Field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
Sheets(myarr(i) & "").Columns.AutoFit
Next
ws.AutoFilterMode = False
ws.Activate
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=5
End Sub

**The above code is one that I worked on that will parse data but also ignore hidden columns if anyone needs to use it!