Sub Package()
 

Dim CalculatedValue As Double, Multi As Double
Application.ScreenUpdating = False
Range("T2").Activate

Do
    If ActiveCell.Value = "" Then
        If Cells(ActiveCell.Row, "G") = "TP" And Cells(ActiveCell.Row, "H") = "150D" Then
            Multi = 1
        ElseIf Cells(ActiveCell.Row, "G") = "TP" And Cells(ActiveCell.Row, "H") = "300D" Then
            Multi = 1
        Else
            Multi = 1.5
        End If
        
        CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / Multi, 0) * Multi
        

    End If
    
    ActiveCell.Offset(1, 0).Activate
Loop Until IsEmpty(ActiveCell.Offset(0, -2))

Application.ScreenUpdating = True
End Sub
dear friends.above macro work fine for me.i need to make new macro using above replacing just formula.i need to replace this code..
 CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / Multi, 0) * Multi
new code should Column "L" value /(divide) by Multi
may be its like this - 
Offset(0, -8).Value / Multi
pls make this change for me.thanks a lot....