Try:
Sub mort_marshall_20()
Dim x As Long, i As Long
Dim ws As Worksheet, ws1 As Worksheet, ws2 As Worksheet
Dim y As Range, z As Range
Set ws = Sheets("RAW DATA")
Set ws1 = Sheets("Totals")
Set ws2 = Sheets("Warehouses")
Set z = ws2.Range("A2:A" & ws2.Range("A" & Rows.Count).End(3).Row)
For Each y In z
With ws
x = 0
For i = 4 To .Range("C" & Rows.Count).End(3).Row
Select Case Left(.Cells(i, "C"), 2)
Case Is = "30", "39", "40", "48", "35"
If .Cells(i, "A") = y.Value Then x = x + .Cells(i, "I").Value
Case Else
.Rows(i).Delete
End Select
x = x
Next i
ws1.Cells(Rows.Count, 1).End(3)(2) = y
ws1.Cells(Rows.Count, 2).End(3)(2) = x
End With
Next y
End Sub
Note: Added a Sheet called warehouses and a Sheet called totals -
Bookmarks