Форум по VBA и MS Office

Есть формула "= (C6-D6)*D6*0.2466*(J6/1000)".
Число 6 в адресах ячеек постоянно меняется, т.е. формула должна выглядеть как "= (CХ-DХ)*DХ*0.2466*(JХ/1000)", где Х - переменная.
Как мне правильно записать формулу в макросе?

Sub Макрос()
   
    Dim r As Long
   
    r = 6
    ActiveCell.Formula = "= (C" & r & "-D" & r & ")*D" & r & "*0.2466*(J" & r & "/1000)"
   
End Sub

Спасибо, работает.