VBA to copy formulas in column D and paste as values in same column

I have create a formula in column D. Once the formula is created, I want to copy and paste as values. I am try to make the code more efficient by not having select the cells in the process. I've tried both methods below, but can't get either to work. Thanks

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hello, have you supplied us with the complete code you are using?

For example

Please Login or Register  to view this content.

Alternative method:

Please Login or Register  to view this content.