Sub DgrAta()
Range("D31").Copy
Range("A33").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
dgr = Range("a33").Text
Range("A33").FormulaR1C1 = "= " & dgr
End Sub
Ö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