Find and select first #N/A cell in a filtered selection....

Sub findcopy11()
Dim rng As Range

Application.ScreenUpdating = 0

         
             With ActiveSheet.Columns(3)
                     Set rng = .Find("#N/A", LookIn:=xlValues, LookAt:=xlWhole)
                        If Not rng Is Nothing Then
                            rng.Select
                        End If
             End With
     
    
     Application.CutCopyMode = 0

Set rng = Nothing

Application.ScreenUpdating = True
End Sub

Thank you soooo much. works like a dream

I do have one last question if possible.....

Range("C23").Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-2]C:R[-1]C)"
    Range("C23:C" & LastRow).FillDown

seems to fill down but does not include last row of data.

I would like fill down to do just that until last recognised cell in range. i.e xldown up.... if there is such a command.

Thank you kindly for your time.

Range("C23:C" & LastRow+1).FillDown

Sub Macro1()

With ActiveSheet

   .Range("C23:C" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row).FormulaR1C1 = "=SUBTOTAL(9,R[-2]C:R[-1]C)"
End With
End Sub

Thanks bud.... spot on.

Thanks for pointing out :-)

I look forward to any feedback.