Округление чисел во всем столбце VBA

[mexx1337]

Здравствуйте!
Подскажите как округлить числа в поле до 2 знаков именно в моем коде. Мои варианты не работают, только визуально убирают

 Option Explicit
Private sh As Worksheet
 
Private Sub CommandButton1_Click()
   Set sh = ActiveSheet
   Application.ScreenUpdating = False
   Call DeleteEmptyRows
   Call Sortirovka
   Call Summiruem
   Application.ScreenUpdating = True
End Sub
 
 
Private Sub DeleteEmptyRows()
  
   Dim LastRow As Long, r As Long
   With sh.UsedRange
      LastRow = .Rows.Count
      For r = LastRow To 3 Step -1
         If .Cells(r, 1) = "" Then .Rows(r).Delete 
      Next
   End With
End Sub
 
 
Private Sub Sortirovka()
   Dim endRow As Long
   With sh.UsedRange
      .Cells(3, 1).End(xlDown).Select 
      endRow = ActiveCell.Row
      
      .Range(Cells(3, 1), Cells(endRow, 3)).Sort key1:=Columns(1)
   End With
End Sub
 
 
 
Private Sub Summiruem()
   Dim i, last As Long
   Dim sum As Double
   
   Dim tek, tek2, brak As String
   i = 3: sum = 0: brak = "" 
    Do
      With sh
         tek = .Cells(i, 1)
         tek2 = .Cells(i + 1, 1)
         If Not IsNumeric(.Cells(i, 2)) And .Cells(i, 2) <> "" Then
         
            brak = brak & " [" & .Cells(i, 2) & "]"
         Else
            sum = sum + .Cells(i, 2)
         End If
         If tek = tek2 Then
         
            .Rows(i).Delete
         Else 
            .Cells(i, 2) = sum 
           
            If brak <> "" Then .Cells(i, 3) = "ГЃГђГЂГЉ - " & brak
            sum = 0
            brak = "" 
            i = i + 1
            
         End If
      End With
   Loop Until tek = "" 
   
   last = Cells(Rows.Count, 1).End(xlUp).Row
   For i = 3 To last
   Cells(i, 5) = Cells(i, 2) * Cells(i, 4)
   Cells(i, 5).NumberFormat = "0.00"
   Next i
      
End Sub

Также есть отдельный модуль, но это не то

Sub 1()
   
   last = Cells(Rows.Count, 1).End(xlUp).Row
   For i = 3 To last
   Cells(i, 5) = Cells(i, 2) * Cells(i, 4)
   Next i
    Range("E3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "0.00"
     
End Sub

я использую numberformat, но он только визуально округляет, как округлить с помощью round?

[Aleksandr H.]

For i = 3 To last
   Cells(i, 5) = Round(Cells(i, 2) * Cells(i, 4),2)
   Next i

Не?