Weighted Average with Criteria Using VBA

Sub CalculateStuff()
    Dim wbData As Workbook, wbSummary As Workbook
    Dim wsData As Worksheet, ws As Worksheet
    Dim rowData As Long, z As Long
    Dim x As Integer, y As Integer
    Dim product As Variant
    Dim store As String
    Dim dte As Date
    Dim sumProd As Double, sumUnits As Double, totalStore As Double, totalStoreUnits As Double
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set wbData = ThisWorkbook
    Set wbSummary = Workbooks("Report")
    
    Set wsData = wbData.Sheets("Data")
    
    rowData = wsData.Range("A" & Rows.Count).End(xlUp).Row
    
    For Each ws In wbSummary.Sheets
        product = ws.Range("B1")
    
        For x = 4 To 15 ' Dates on each summary sheet
            For y = 2 To 6 'Stores in row 3
            
                store = ws.Cells(3, y)
                dte = ws.Cells(x, 1)
                
                For z = 2 To rowData
                    If wsData.Range("A" & z) = dte And wsData.Range("B" & z) = store And wsData.Range("C" & z) = product Then
                        sumProd = sumProd + wsData.Range("E" & z) * wsData.Range("D" & z)
                        sumUnits = sumUnits + wsData.Range("D" & z)
                        
                        totalStore = totalStore + wsData.Range("E" & z) * wsData.Range("D" & z)
                        totalStoreUnits = totalStoreUnits + wsData.Range("D" & z)
                    End If
                Next z
                
                If sumUnits > 0 Then
                    ws.Cells(x, y) = sumProd / sumUnits
                Else
                    ws.Cells(x, y) = 0
                End If
                sumProd = 0#
                sumUnits = 0#
            Next y
            
            If totalStoreUnits > 0 Then
                ws.Cells(x, 7) = totalStore / totalStoreUnits
            Else
                ws.Cells(x, 7) = 0
            End If
            
            totalStore = 0#
            totalStoreUnits = 0#
        Next x
    Next ws
                    
    Application.Calculation = xlCalculationAutomatic
    
End Sub