Защо сумира total_sales и total_commis с натрупване от първия към последния лист?

За упражнение повтарям процедурите в този урок, но имам проблем. В сумарните редове total_sales и total_commis събира стойностите с натрупване от първия към последния лист. Проверих си процедурата с вашата и не виждам разлика, а резултатът е различен.

Option Explicit Type Table_title ime As String sales As Currency commis As Currency End Type

Const Perc1 = 0.15, Perc2 = 0.25

Dim sht As Worksheet Dim total_sales As Long, total_commis As Long Dim total_wsales As Long, total_wcommis As Long Dim last_row As Long Dim sht_nu As Integer, m%, l%, n% Dim array_week() As Week_data Dim array_title

Public Sub Consolidate_data()

sht_nu = ActiveWorkbook.Worksheets.Count

For Each sht In ActiveWorkbook.Worksheets sht.Select last_row = Range("A1").End(xlDown).Row

For m = 2 To last_row

If Range("B" & m) >= 3500 Then Range("C" & m) = Perc2 If Range("B" & m) < 3500 Then Range("C" & m) = Perc1

Range("C" & m).NumberFormat = "0%" Range("D" & m) = Range("B" & m).Range("C" & m) Range("D" & m).NumberFormat = "0$"

Range("D" & m) = Range("B" & m) * Range("C" & m) total_sales = total_sales + Range("B" & m).Value total_commis = total_commis + Range("D" & m).Value

Next m

Range("A" & last_row + 1) = "Общо" Range("B" & last_row + 1) = total_sales Range("D" & last_row + 1) = total_commis

Next sht