SpecialCells with autofilter

[chicosbailbonds]

I'm trying to have VBA autofilter a particular range once I have the selection I'm trying to use the visible cells and put a particular formula in column C, not sure how to do it. Please help!

With LPRNGE
AutoFilter Field:=3, Criteria1:="<>"
.SpecialCells(xlCellTypeVisible).
    End With

 

[GlennUK]

It's be something like:

.Offset(1).Columns(3).Resize(.Rows.Count-1).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=RC[-3]"

... at a guess.