fill empty with two condition

Sub Package()
 
Dim CalculatedValue
Range("L2").Select
Do
    If ActiveCell.Value = "" Then
        CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / 1.5, 0) * 1.5
      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).Select
    Loop Until IsEmpty(ActiveCell.Offset(0, -2))
End Sub

dear friends above macro work fine for me.i need to add two conditions to that macro.it's like this.
01.if Column "G" value " TP " & Column "H" value " 150D " then above 1.5 should change to 0.9

CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / .9, 0) * .9

02.if Column "G" value " PP " & Column "H" value " 16/2 " then above 1.5 should change to 1

CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / 1, 0) * 1

Column "G' & column "H" values other than above then 1.5 is correct.

CalculatedValue = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(0, -1).Value / 1.5, 0) * 1.5

pls anybody can help me to do that......

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

thank u very much JBeaucaire.your understanding is 100% correct,your macro very well.thanks a lot again....