Object variable not set (Error 91) occurs part way through running code

[Westbury]

I have a code to run through columns and staggered rows to collect data into an array. The staggered layout becomes one row in the array. It runs successfully for the first 2 groups of data but towards the end of the 3rd group it produces an error message "Object variable not set (Error 91). It trips on the line in red below.

What might be the problem?

thanks

With ActiveSheet
For r = r + 1 To LastRow

    For i = Counter To LastRow Step 1
            If Cells(Counter, 1).Value <> Cells(Counter + 1, 1).Value Then
                Exit For
            End If
          
        Counter = Counter + 1
      
    Next i
  
'group end row
EndRow = Counter

For c = 1 To 12  'columns A to L
  
    Set startCell = Cells(StartRow, c)
           
    Set Rng = Range(Cells(StartRow, c), Cells(EndRow, c))
  
         If WorksheetFunction.CountA(Rng) = 0 Then
       
         Aptdatarray(r, c) = ""
       
         Else
       
         [COLOR=rgb(184, 49, 47)]Aptdatarray(r, c) = Rng.Find(What:="*", After:=Cells(StartRow, c)).Value  [/COLOR] 
           
         End If
    
   Next c

    StartRow = Counter + 1
    Counter = Counter + 1

        If StartRow >= LastRow Then
        Exit Sub
        End If

Next r

End With

 

[steve the fish]

You will get that error if all cells in Rng are empty. Im guessing thats it.

 

[Westbury]

I included the lines

 If WorksheetFunction.CountA(Rng) = 0 Then
       
         Aptdatarray(r, c) = ""

to try and trap that condition and it appears to work as I can see the array load 3 cells with "" before it trips.

Is there a better way to catch blanks cells? or should I just skip the blanks?I've been trying to ensure that each row of the array is complete; does that matter?