apply formula to only those rows that are visible after sort

Hi,

I have created code to filter data in column E for specific criteria. Now I want to use a formula in column I for only those rows that are visible. The number of rows will change each week. Below is the code I have thus far. Thank you in advance for any help. I am still learning VBA a little at a time.

Sub VBAcodeFilter()
'
' VBAcodeFilter Macro
'

'
    Range("A1:M1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$M$200").AutoFilter Field:=5, Criteria1:= _
        "=OnCall-Pay", Operator:=xlOr, Criteria2:="=OT-Pay"
        
    Dim LR As Long
    LR = Range("E" & Rows.Count).End(xlUp).Row
    Range("E2:M" & LR).SpecialCells(xlCellTypeVisible).Select
End Sub