fill empty with two condition

Maybe this:

Option Explicit

Sub Package()
Dim CalculatedValue As Double, Multi As Double

Range("L2").Activate

Do
    If ActiveCell.Value = "" Then
        If Cells(ActiveCell.Row, "G") = "TP" And Cells(ActiveCell.Row, "H") = "150D" Then
            Multi = 0.9
        ElseIf Cells(ActiveCell.Row, "G") = "PP" And Cells(ActiveCell.Row, "H") = "16/2" Then
            Multi = 1
        Else
            Multi = 1.5
        End If
        
        CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / 1.5, 0) * Multi
        
        Select Case CalculatedValue
            Case 61.5, 63: ActiveCell.Value = 64.5
            Case 31.5, 33: ActiveCell.Value = 34.5
            Case Else: ActiveCell.Value = CalculatedValue
        End Select
        
    End If
    
    ActiveCell.Offset(1, 0).Activate
Loop Until IsEmpty(ActiveCell.Offset(0, -2))

End Sub