Help with getting variable to 2 decimal places

[DMacSTB]

I'm struggling a bit with getting the variable 'price' to 2 decimal places. I've got price set as Dim price As Single but it isn't working with just that. What am I doing wrong? I'd also like to round up the result of Range("D" & x).Value to #.99

Also, as I'm a total rookie I'm struggling to be efficient with my coding and feel this script is a bit long winded. Is there anyway to reduce it down?

    On Error Resume Next
    For x = 2 To 10
        Brand = Range("T" & x).Value
        With ThisWorkbook.Sheets
            Margin = Application.VLookup(Brand, ws2.Range("A2:B" & Brandcount), 2, False)
            Range("S" & x).Value = 1 - (Margin / 100)
            If Err.Number Then
               Range("S" & x).Value = 1 - (DefaultMargin / 100)
            End If
            divider = Range("S" & x).Value
            price = (Range("R" & x) / divider * 1.2) / (1 - (Fee / 100))
            Range("D" & x).Value = price
        End With

    Err.Clear
    Next x
    
    With ActiveSheet
        .AutoFilterMode = False
        With Range("S1", Range("S" & Rows.Count).End(xlUp))
            .AutoFilter 1, "x"
            On Error Resume Next
            .Offset(1).SpecialCells(12).EntireRow.Delete
        End With
        .AutoFilterMode = False
    End With