Coping and Pasting with VBA on Active Cell

[vbalearner23]

Hi everyone,

I am trying to copy and paste the value from B57 on the active cell using the code below, but right now it's pasting on D4. Is there a way to change D4 to be the active cell instead?

Thanks in advance for the help!

Sub copypaste()
'
' copypaste Macro
'
' Keyboard Shortcut: Ctrl+r
'
ActiveWindow.SmallScroll Down:=24
Range("B57").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-27
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[crazydragon84]

Activecell.value = Range("B57").value


this is all you need in that sub.

 

[vbalearner23]

Activecell.value = Range("B57").value


this is all you need in that sub.

Thank you! Works like a perfect.