Find and Replace with nested If?

This doesn't give me an error, but it doesn't change any values either. I'm guessing it has something to do with my parenthesis?

Dim i As Long
For i = 1 To Rows.Count
If (Cells(i, 5).Value = "Travel_Meal" Or Cells(i, 5).Value = "Vehicle_Shipping" And Cells(i, 6).Value = "18 MDX") Then
Cells(i, 5).Value = "2BJ"

End If

Next i