Calculating Median / Mean And GeoMean Of Dynamic Range

I have a spreadsheet with Data in Columns A-H. Column B is an ID value that will repeat an unknown amount of times. For each Value in Column B I need to calculate the Median, Mean, and GeoMean for the corresponding range of "G_:H_"

Ex.
Column B
Column G
Column H

2
10
5

2
13
9

[code]....

I need the Median, Mean, and Geo Mean values to paste in Columns N-P for each different Station Index. My code only calculates for the first Station ID

Here is the code for what I have so far

Code:
Sub Median()
Dim r As Long
Dim stndx As String
Dim i As Long
Dim x As Integer
Application.Calculation = xlCalculationManual

[code]....