More efficient way to find max value for an array of values

Hi,

I have a macro that works.........but it takes ~23sec to run. I am trying to find a quicker more efficient way to do the same thing. I am thinking a scripting dictionary way might be the answer.

What macro is supposed to do:
See "Data_And_Output" worksheet. Three cols of data on this sheet.

SubjectIDs: List of subject values
Expected: Expected value for each subject
Max Expected: This is the column the macro calculates. Maximum expected value for subject value listed in col-A.

NOTE: In order to attach file i had to reduce the number of rows.......originally number of rows was 108770. BUt i am reducing it to 70,000 rows