Sub es()
Dim t, i As Long, z
t = Range("f1:i" & Cells(Rows.Count, 6).End(3).Row)
For i = 1 To UBound(t)
If t(i, 1) = 97 Or t(i, 1) = 98 Then _
z = t(i, 3): t(i, 3) = t(i, 4): t(i, 4) = z
Next i
Range("f1").Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub