If statement - Line needed

I need to add something on each of the lines that have:

HTML Code: 

I need to add something to the end that if "42" is found it does the

HTML Code: 

and also skips all the other

Sheets("sheet2").Range("L16").Select


For b = 22 To 23
Data = Mid(MyHost.Row(b), 1, 2)
If Data = "42" Then
ActiveCell.Value = Mid(MyHost.Row(14), 2, 4)
Else
ActiveCell.Value = Mid(MyHost.Row(14), 2, 4)
RC = MyHost.Runcmd("DOWN")
End If
Next


and picks up at

HTML Code: 

HTML Code: 

Perfect. Thanks