Автоматическое заполнение видимых ячеек (отфильтрованный диапазон) определенной строкой - с использованием Vbscript

Question

Необходимо отфильтровать столбец C для поиска текстового содержимого, например «sim», если содержимое найдено, заполните ячейку столбца B

   Dim lastRow ,xl
    With wb

         objSheet.Range("P1").Autofilter 16, Criteria1 ="=*sim*" 
         LastRow = objSheet.usedrange.rows.count
        If lastRow > 2 Then
           ' objSheet.Range(objSheet.Range("O2"), objSheet.Range("O" & lastRow)). _
               'SpecialCells(xlCellTypeVisible).Value = "SIMEX"
               objSheet.Range("O" & LastRow).Value = "SIMEX"


        End If

          WScript.Echo vbCrLf _
           & "LastRow:-" _
        '.Range("P:P").AutoFilter Field:=16 'clear the filter
    End With

Фактический результат как:

Col1   Col2    Col3
asd    sim       sim
dfg    P2P       sim
fgh    sim       sim