Deseo copiar una fila cada vez que de clic en el botón

Range("4:4").Copy Destination:=Range("5:5")

asi pero cada vez que de clic siga copiando lo mismo mas abajo