Macro Modification

Sub Package()

Range("L2").Select
Do
If ActiveCell.Value = "" Then
ActiveCell.Value = "=((ROUNDUP((RC[-1]/1.5),0))*1.5)"
ActiveCell.Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell.Offset(0, -2))
End Sub


dear friends after running above macro if cell values 31.5,33,61.5,63 then this all 4 values need to replace with 34.5.pls make this for me.thanks,,,