copy value from cell paste special only values to last row of column

[cantante]

Hi Guys,

I currently have this macro

Sub COPYTODASH()
Application.ScreenUpdating = False
Worksheets("DASHBOARD").Range("R26:R26").Copy Worksheets("PROG").Range("C" & Rows.Count).End(xlUp)(2)
Application.ScreenUpdating = True
End Sub

It works as expected, the only problem I'm having is that it's pasting the formula, I need to paste only the value
from ("DASHBOARD").Range("R26:R26")

So I'm trying to add the paste special values only portion, but I do not know where to incorporate it exactly.

Can someone please help me, Thanks!

 

[My Aswer Is This]

Try this:

Sub My_Sub()
'Modified  11/8/2021  1:50:23 AM  EST
Application.ScreenUpdating = False
Worksheets("DASHBOARD").Range("R26").Copy
Worksheets("PROG").Range("C" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

Or use this:
No need to copy

Sub My_Sub()
'Modified  11/8/2021  1:55:42 AM  EST
Application.ScreenUpdating = False
Worksheets("PROG").Range("C" & Rows.Count).End(xlUp)(2).Value = Worksheets("DASHBOARD").Range("R26").Value
Application.ScreenUpdating = True
End Sub

 

[cantante]

Or use this:
No need to copy

Sub My_Sub()
'Modified  11/8/2021  1:55:42 AM  EST
Application.ScreenUpdating = False
Worksheets("PROG").Range("C" & Rows.Count).End(xlUp)(2).Value = Worksheets("DASHBOARD").Range("R26").Value
Application.ScreenUpdating = True
End Sub

Thank you both solutions worked flawlessly!

 

[My Aswer Is This]

Thank you both solutions worked flawlessly!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[cantante]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

will do! thanks