Excel VBA for dynamic mean weighted ranking

[neroed]

Hello, I am working on a weighted ranking procedure. I have the procedure written for when it is always rank the top three. The problem is that this needs to be dynamic, it could be any number up to 15 or 20. n is a defined variable and I have a variable called ranknum that identifies how ranks that particular question has. The excel formula would look something like this, =(3*B2+2*C2+D2)/n Any ideas on how to make this dynamic?

Cells(2, lcol + 3).Activate
    Do While ActiveCell <> ""
       ActiveCell.Offset(0, ranknum + 1).Value = (ActiveCell.Offset(0, ranknum - 2) _
       .Value * 3 + ActiveCell.Offset(0, ranknum - 1).Value _
       * 2 + ActiveCell.Offset(0, ranknum).Value) / n
       ActiveCell.Offset(1, 0).Activate
    Loop

Rank Topic	Rank1	Rank2	Rank3	Weighted
Topic1	3	12	18
Topic2	24	2	0
Topic3	1	3	2
Topic4	15	40	3
Topic5	2	4	6
Topic6	12	14	16

<tbody>
</tbody>