Having problem with a nested FOR loop

Hi, I'm trying to run a nested loop, but receiving an error message. I'd much appreciate if somebody could "fix" this specific code .. By the way the aim is to fill up what I called "Ranking Table" in the sample.

Sub find_ranking()
Dim year As Range
Set year = Sheets(1).Range("b2:b" & Sheets(1).UsedRange.Rows.Count)
Dim one_year As Range, i As Integer
For Each one_year In year
For i = o To 10
one_year.Offset(0, 14 + i) = Application.WorksheetFunction.Rank(one_year.Offset(0, 1 + i), year.resize(, i))
Next i
Next one_year
End Sub