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: