Você pode fazer subtotais condicionais sem o VBA. Experimente esta fórmula:
=SUMPRODUCT(SUBTOTAL(9,OFFSET(units,ROW(units)-ROW(D4),0,1)),--(wholesale=""))
Onde
units
refere-se a D4:D12
na sua captura de tela, com D4
como o cabeçalho
wholesale
refere-se a B4:B12
na sua captura de tela
Exemplo - A fórmula em funcionamento na célula D2: