Я хочу посмотреть, если значение ячейки начинается с букв "PP *"

Question

В Excel я использовал этот код в столбце R:

=IF(COUNTIF(RC[-14],"*PP*")>0,"N",VLOOKUP(RC[-7],Mapping!R2C1:R22C19,2,FALSE)"

Теперь я хотел превратить его в код VBA.

В столбце D (R C -14) он выглядит если слово содержит PP, если да, то дает N. Если слово не содержит буквы PP, тогда используется Vlookup.

Это код ниже: он не определяет, когда значение в D начинается с PP * и всегда go, иначе l oop. Может кто-нибудь помочь мне, пожалуйста:)

Dim RowCounter As Integer
RowCounter = 1

While wsBPT.Range("A1").Offset(RowCounter, 0).Value <> ""   'only fill in when there is data
If wsBPT.Range("D1").Offset(RowCounter, 0).Value = "*PP*" Then   'when isin starts with PP
        wsBPT.Range("A1").Offset(RowCounter, 17).FormulaR1C1 = "=VLOOKUP("PP",'Mapping'!R2C1:R10C2,2,FALSE)"
        RowCounter = RowCounter + 1
    Else: wsBPT.Range("A1").Offset(RowCounter, 17).FormulaR1C1 = "=VLOOKUP(RC[-7],'Mapping'!R2C1:R10C2,2,FALSE)" 'isin doesnot contain PP
        RowCounter = RowCounter + 1
End If
        Wend