Excel/vba Aktiver celler med løkke

Kan jeg få lidt hjælp til denne fejl?
I celle b2 og b4 har jeg nogle faktorer, der skal bestemme det antal rækker i kolonne a, der skal have et fortløbende nr. range a8 er 0 og range a9 skal så være range a8+1.
For i = 1 To Range(\"b2\") * Range(\"b4\")
Range(\"a9\").Value = Range(\"a8\").Value + 1
Range(\"a9\").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 1).Activate
Next i