Sub InsertWordOnFilteredTable()
Dim LR As Long
Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = False
LR = .Cells(Rows.Count, "X").End(xlUp).Row
.Range("A1:AC" & LR).AutoFilter Field:=24, Criteria1:="=LAE", _
Operator:=xlOr, Criteria2:="=MAE"
.Range("AC2:AC" & LR).Value = "Available"
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub