sütundaki rakamların numerik görünmesi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar;
Aşağıdaki tablo ile ÖZET TABLO oluşturuyorum, ancak özet tablo sonucunda Q3 ve R3 sütunlarından başlamak üzere oluşturulan rakamlar, Örneğin 74,4562 oluyor ben bunların 74,46'ya yuvarlamasını istiyorum.

Sub ÖZET_TABLO()
    Dim X As Long, Satır As Long
 
    Application.ScreenUpdating = False
 
    Range("K2:R" & Rows.Count).ClearContents
    Satır = 3
 
    For X = 2 To Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.CountIf(Range("L:L"), Cells(X, "B")) = 0 Then
            Cells(Satır, "K") = Satır - 2
            
            Cells(Satır, "L") = Cells(X, "B")
            Cells(Satır, "M") = Cells(X, "C")
            Cells(Satır, "N") = Cells(X, "D")
            'Cells(Satır, "O") = Cells(X, "E")
            Cells(Satır, "P") = Cells(X, "E")
            Cells(Satır, "Q") = Cells(X, "F")
            Cells(Satır, "R") = Cells(X, "G")


            Cells(Satır, "P") = WorksheetFunction.SumIf(Range("B:B"), Cells(Satır, "L"), Range("E:E"))
            Cells(Satır, "Q") = WorksheetFunction.SumIf(Range("B:B"), Cells(Satır, "L"), Range("F:F"))
            Cells(Satır, "R") = WorksheetFunction.SumIf(Range("B:B"), Cells(Satır, "L"), Range("G:G"))
            



           
            Satır = Satır + 1
        End If
    Next
 
    Application.ScreenUpdating = True
 
    Columns("A:Z").Columns("A:Z").EntireColumn.AutoFit

   [COLOR="Red"]Cells( = Format("Q", "##,##.00")[/COLOR]

 
    MsgBox "Özet Tablo Oluşturulmuştur. ", vbInformation
End Sub

Kırmızı ile gösterdiğim kodu nasıl düzeltirim. Teşekkürler.

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar bu şekilde oldu teşekkürler.

Columns("Q:R").NumberFormat = "#,##0.00"