Maybe:
Sub aaronmendes()
For Each cell In Range("T2:T" & ActiveSheet.UsedRange.Rows.Count)
If cell.Text = "FULL_DISPUTE" Or cell.Text = "PARTIAL_DISPUTE" Then
If cell.Offset(, 1).Value <> "" Then
Select Case cell.Offset(, 3).Value
Case Is = "USD"
cell.Offset(, -17).Value = Abs(cell.Offset(, 1)) * Range("$E$2").Value
cell.Offset(, -17).Value = cell.Offset(, -17).Value
cell.Offset(, -17).NumberFormat = "#,##0"
Case Is = "EUR"
cell.Offset(, -17).Value = cell.Offset(, 1).Value / Range("$E$3").Value
cell.Offset(, -17).Value = cell.Offset(, -17).Value
cell.Offset(, -17).NumberFormat = "#,##0"
End Select
End If
End If
Next cell
End Sub
Bookmarks