Sub STEP12()  Dim wb1 As Workbook, ws1 As Worksheet, Lr1 As Long
  Set wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls")
  Set ws1 = wb1.Worksheets.Item(1)
  Let Lr1 = ws1.Range("H" & ws1.Rows.Count).End(xlUp).Row
   ws1.Range("J2:J" & Lr1 & "").Value = "=IF(H2>D2,0.40/100*H2,IF(H2<D2,0.40/100*H2,""D is equal to H""))"
   ws1.Range("J2:J" & Lr1 & "").Value = ws1.Range("J2:J" & Lr1 & "").Value
   ws1.Range("K2:K" & Lr1 & "").Value = "=IF(H2>D2,H2-J2,IF(H2<D2,H2+J2,""D is equal to H""))"
   ws1.Range("K2:K" & Lr1 & "").Value = ws1.Range("K2:K" & Lr1 & "").Value
   wb1.Save
   wb1.Close
End Sub