Copy value above active cell, paste below

Question

I\'m trying to replicate a shortcut to paste value from cell above active cell to active cell. I tried code below, but the shortcut doesn\'t seem to work. The Sub CopyPasteB