Cost Optimisation Calculation

Function CostOptimisationCalculation(rg As Range)
    Dim n66csm As Long, nRemainder As Long
    n66csm = rg.Value \ 66
    nRemainder = rg.Value Mod 66
    If nRemainder > 30 Then
        CostOptimisationCalculation = n66csm + 1 & "x66"
    ElseIf nRemainder = 0 Then
        CostOptimisationCalculation = n66csm & "x66"
    Else
        CostOptimisationCalculation = n66csm & "x66 & 1x30"
    End If
End Function