Hi NG,
I would really appriciate some help with this code with a formula,
the calculation works, but I need the result to be rounded
e.g. 34.4 will result in 34
and 34.5 will result in 35.
Can anyone suggest how to modify this code to round the result?
TIA
Paul

Sub TotcalcCpy()
Application.ScreenUpdating = False
Sheets("IMPUT").Select
Range("J2").Select
Set frng = Sheets("IMPUT").Range("J2:J" &
Range("A65536").End(xlUp).Row)
With frng
..Formula = "=IF(F20,F2*H2/100,D2*I2)"
..Formula = .Value 'changes the formula to value
End With
Sheets("IMPUT").Select
Range("A1").Select

Application.ScreenUpdating = True
End Sub