LinEst with operator
 

My VBA code for LinEst won't work with any operator.
I hope you will have the right code for me. Thanks

Sub LinEst_Test()
Dim reg1 As Double
Range("A1") = 4 ' given
Range("D5") = 8 ' given
Range("D6") = 10 ' given
Range("D7") = 12 ' given
Range("D8") = 16 ' given
' Cells(3, Cells(1, 1)) = Application.LinEst(Range(Cells(5, Cells(1, 1)),
Cells(8, Cells(1, 1)))) * 2 ' won't work
Cells(3, Cells(1, 1)) = Application.LinEst(Range(Cells(5, Cells(1, 1)),
Cells(8, Cells(1, 1))))
reg1 = Cells(3, Cells(1, 1)).Value
Cells(3, Cells(1, 1)) = reg1 * 2
End Sub