Copiar valor de una celda a otra con excel con VBA

Y esta es la función VBA para una macro en excel:


Sub copiartextodeunaceldaaotra()
'
' copiartextodeunaceldaaotra Macro
' copiar el valor de una celda a otra segun la posicion actual de la celda seleccionada
'
' Acceso directo: Ctrl+Mayús+P
'
    Range("B" & ActiveCell.Row - 1).Select
    Selection.Copy
    Range("B" & ActiveCell.Row + 1).Select
    ActiveSheet.Paste
    Range("E" & ActiveCell.Row).Select
    
End Sub


ActiveCell.Row: hace referencia al numero de la fila actual de la celda que esta seleccionada en el momento.

Lamento dejar este ejemplo tan especifico y poco claro, pero por tiempo no me quedo de otra.

Sean felices! :) Y siéntanse libres de opinar ;)