Get average of some cells of a column If criteria in a different column with vba not worki

I need the average of cells in col C for all the cells in col B that have 1
Then the average of cells in col C for all the cells in col B that have 2
.
.
.

I have the following but it in not calculating the averages correctly, I have uploaded a file with data

Thanks

Please Login or Register  to view this content.

Check Please this file
special_average.xlsm

nilem, this one worked

Please Login or Register  to view this content.

Thank you

salim ali, thank you for this alternative way it works perfectly