How to Select first available visible cell in filtered mode and drag Formula

[Hiten_123]

I would like to input formulae in column B after filtering column D with criteria mentioned in screenshot 2. The formulae in column B should be dragged until last visible row. Please advise a best VBA code.


My spreadsheet without filter

Filtered Column D with "LJ"

Need formula in column B until end of the row adjacent to B(drag formulae to Visible cells only)

 

[HaHoBe]

Hi Hiten_123,

what about

Public Sub MrE_1230150_1702F14()
' https://www.mrexcel.com/board/threads/how-to-select-first-available-visible-cell-in-filtered-mode-and-drag-formula.1230150/
  With ActiveSheet
    .Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:="LJ"
    .Range("B2:B" & .Cells(.Rows.Count, "D").End(xlUp).Row).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=IF(RC[1]=""FBE"",""A"",""B"")"
    .Range("A1").CurrentRegion.AutoFilter
  End With
End Sub

Ciao,
Holger