With Sheets("Destination").Range("h:h,l:l").SpecialCells(xlCellTypeFormulas, 23)
.Value = .Value
.NumberFormat = "#,##0.00"
End With
Sheets("Destination").Range("h" & Rows.Count).End(xlUp)(1).Value = Sheets("Destination").Range("h" & Rows.Count).End(xlUp)(1).Value * 1
End Sub