Örneğinizin içinde "Macro ile D31 hücresindeki bilgiyi kopyalayıp A33 hücresine = işareti koyup kopyalanan değeri yapıştırıp enter yapmasını istiyorum." şeklinde belirttiğiniz husus ise probleminiz aşağıdaki kodu deneyin

Sub DgrAta()

    Range("D31").Copy

    Range("A33").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

    dgr = Range("a33").Text

    Range("A33").FormulaR1C1 = "= " & dgr

End Sub