Making bold a string starting with selected two letters, last row is missing

[makiwara]

Hi! I know that there are a lot of mistakes, but I would like to solve this problem by using my current knowledge. And it seems to me that there is just one row in my code that is missing... I can't finish it, making bold what i want. Can you help me? Have a nice day
https://imgur.com/a/AKIrdM8

//word =szo, Suppose that every "dim" is correct

 

[iliace]

Try this:

Public Sub MakeBold()
  Dim szo As String
  Dim i As Integer
  Dim poz As Integer
  Dim szovege As Integer
  Dim cel As String
  
  For i = 1 To 4 Step 1
    szo = Left(Cells(i, "a").Value, 2)
    poz = InStr(1, Cells(i, "b").Value, szo)
    
    szovege = InStr(poz, Cells(i, "b").Value, " ")
    
    Cells(i, "b").Characters(poz, szovege - poz).Font.Bold = True
  Next i
End Sub