I need to get these two together somehow, someway:
Don't know how since they use different cell ranges. Please, please, help I really need to move past this. Thanks!
VB Code:
  1. ' ----------first statement---------------
  2. For Each MyCell2 In Sheet1.Columns("A").Cells
  3. With MyCell2
  4.     If .Value = "" Then Exit For
  5.     If .Value = 574 _
  6.     Or .Value = 555 _
  7.     Or .Value = 510 Then
  8.         .Offset(0, 12).Value = .Offset(0, 8).Value * 1.1
  9.     End If
  10. End With
  11. Next MyCell2
  12. '-------------second statement-------------
  13. For Each MyCell3 In Sheet1.Columns("D").Cells
  14. With MyCell3
  15.     If .Value = "" Then Exit For
  16.     If .Value <> "OMI" Then
  17.         .Offset(0, 9).Value = .Offset(0, 5).Value * 1.4503
  18.     Else
  19.         .Offset(0, 9).Value = .Offset(0, 5).Value
  20.     End If
  21. End With
  22. Next MyCell3