Move value found in one column to another column based on criteria in another column

[Mldeuser]

I have a large spread sheet where some values down load to the wrong column. To fix this I am looking for a macro that can look in Column H and where it finds Balance Forward look in the same row at column J and if there is a value move that to column K.

Columns L and M will have values in them that need to stay.

Example: H15 = Balance Forward, J15 = 214,111.63, K15 blank cell, L15 2,300.70 (needs to stay), M15 = 2,389,858.62 (needs to stay).

Thank you
Mark

 

[Fluff]

How about

Sub Mldeuser()
   Dim Rng As Range
   With Range("H2", Range("H" & Rows.Count))
      .Replace "Balance Forward", True, xlWhole, , False, , False, False
      For Each Rng In .SpecialCells(xlConstants, xlLogical).Areas
         Rng.Offset(, 3).Value = Rng.Offset(, 2).Value
         Rng.Offset(, 2).ClearContents
         Rng.Value = "Balance Forward"
      Next Rng
   End With
End Sub