The code is a bit messy but let me give you some comments:
Your Dim statement creates two Variants and an Integer. I'll bet you expect it to create three Integers. This does not cause your code to fail but is a programming error. You must specify the type for each variable even if they are on the same Dim statement.
I am guessing your cells contains values, not formulas. But you are using FormulaR1C1 to retrieve and set values. Again, this is not causing the code to fail but is a programming error. I suggest using Value instead.
It is not necessary to Select a cell to refer to it.
I do not see anything in your code that does anything from 1-8. It does have a loop from 1-9. You'll have to be more specific about what you're talking about there.
I don't see the need for intermediate variable K. K will always be the same as I.
This seems to grab a value in the cell to the right of the current selection, and use it to multiply time the rows numbers in cells D1:D9 to set the values in those cells. Cells C1:C9 get the row numbers as values.
Here is how I would rewrite it. Hopefully this makes it clean enough so you can easily see how to change what you want to change: