Finding Median using VBA code

Hi

I am really new to VBA programming and I have to automate an excel sheet which has the columns Closed Qtr, Apps Bucket and Res Time.
Closed Qtr has the following entries: Q107,Q207,Q307,Q407,Q108,Q208,Q308,Q408.
Apps Bucket has the following entries:
BU Apps,Global Apps,Quality,others

I have to find the median of the Res Time data based on grouping by Closed Qtr and Apps Bucket, i.e., for BU Apps in Q107, BU Apps in Q207 and so on.
Please help me out with the VBA code for implementing this.

Thanks

Book2.xlsx
I have attached this dummy workbook so that you can better understand my query.
And yes I have given up on the DigDB query since I havent been able to make much progress on that front.

Thanks.

Thanks DO for your prompt reply. However your code doesnt seem to be working. It is displaying only zeros in column D.
Also my aim is to get medians for each group based on Closed Qtr and Apps Bucket. For instance, there are two BU Apps entries in Q107. I want to get the Res Time for these 2 entries and obtain the median for BU Apps in Q107. I tried using formulae like
=if(and(a2="Q107",b2="BU Apps"),c2,"")
for column D and then
=median(D:D)
for column E but it is extremely tedious if I try to do it for the data that I actually have.
So please tell me if you can find a suitable solution to this problem.

Thanks a lot.

Yeah you are right. I must have missed something the first time. Thanks for your help. Appreciate it.

Hello DonkeyOte,

I realize this post is old but your code is very helpful.

I was wondering if it can be altered to group on more then the two fields in use.

I have 5 fields I need to group on, and your code is exactly what I an in need of.

Thanks