Need VBA help with deleting rows and/or cells based on a certain cell

Updated code:

Sub tgr()
    
    Dim ws As Worksheet
    Dim rngCheck As Range
    Dim CheckCell As Range
    Dim rngDelAll As Range
    Dim rngDelSpecial As Range
    Dim DelArea As Range
    
    Set ws = Sheets("DC Data")
    Set rngCheck = ws.Range("A5", ws.Cells(Rows.Count, "A").End(xlUp))
    
    For Each CheckCell In rngCheck.Cells
        If Not (Left(CheckCell.Text, 1) = "F" And Len(Mid(CheckCell.Text, 2)) = 6 And IsNumeric(Mid(CheckCell.Text, 2))) Then
            If CheckCell.Text = "Jumbo" Then
                Select Case (rngDelSpecial Is Nothing)
                    Case True:  Set rngDelSpecial = Union(CheckCell.Resize(, 2), CheckCell.Offset(-1, 2).Resize(, 2))
                    Case Else:  Set rngDelSpecial = Union(rngDelSpecial, CheckCell.Resize(, 2), CheckCell.Offset(-1, 2).Resize(, 2))
                End Select
            Else
                Select Case (rngDelAll Is Nothing)
                    Case True:  Set rngDelAll = CheckCell
                    Case Else:  Set rngDelAll = Union(rngDelAll, CheckCell)
                End Select
            End If
        End If
    Next CheckCell
    
    If Not rngDelAll Is Nothing Then rngDelAll.EntireRow.Delete xlShiftUp
    If Not rngDelSpecial Is Nothing Then rngDelSpecial.Delete xlShiftUp
    
    Set ws = Nothing
    Set rngCheck = Nothing
    Set CheckCell = Nothing
    Set rngDelAll = Nothing
    Set rngDelSpecial = Nothing
    Set DelArea = Nothing
    
End Sub