Exclude a row when searching table values

[ipbr21054]

My worksheet has headers at Row 4
Row 5 is hidden
All my value are then Row 6 & down the page.
This above is Table 30

I use this code below to find a blank cell in column N
The code does what its supposed to all apart from one issue.

The issue is that it always obvioulsy finds Row 5

    Dim myRange As Range
    Set myRange = Range("Table23").ListObject.DataBodyRange
    For Each myCell In Intersect(Columns("N"), myRange) ' COLUMN WITH NO INVOICE NUMBER
    If IsEmpty(myCell) Then
      With Range("A" & myCell.Row)
        If MsgBox("EMPTY INVOICE CELL LOCATED AT ROW: " & myCell.Address(0, 0) & vbCr & vbCr & _
          "THE CUSTOMER IS : " & .Value & vbCr & vbCr & _
          "IS THIS THE CUSTOMER YOU ARE LOOKING FOR ?", vbCritical + vbYesNo, "CUSTOMER INVOICE SEARCH") = vbYes Then
          .Select
          
          Exit Sub
        End If
      End With
    End If
  Next myCell
  MsgBox "THERE ARE NO BLANK INVOICE CELLS" & vbNewLine & vbNewLine & "SO THE SEARCH IS NOW COMPLETE", vbInformation, "BLANK CELL MESSAGEE"
  Range("A6").Select

 

[mumps]

Try:

For Each myCell In Intersect(Range("N6", Range("N" & Rows.Count).End(xlUp)), myRange)

 

[ipbr21054]

Perfect Thank You

 

[mumps]

You are very welcome