This isn't test...so give it a shot.

Sub CopyandPaste()
Dim CopyRange As Range
Set CopyRange = Range("B5:D5")
CopyRange.Copy Destination:=Worksheets("Hist") _
.Range("B" & (Range("B65536").End(xlUp).Row) & ":D" &
(Range("B65536").End(xlUp).Row))
End Sub


"Etienne" wrote in message
...
Hello All,

I am starting to write a VBa code in order to copy 4 cells on the same
line
in another sheet in order to keep the history. Right now, the present code
below just overwrite the previous data everytime I run it. I would like to
be
able to have Excel copy on the next available empty line below the
previous
one. How should I change my code?

Sub CopyandPaste()
Dim CopyRange As Range
Set CopyRange = Range("B5:D5")
CopyRange.Copy Destination:=Worksheets("Hist").Range("B7:D7")
End Sub

Thanks for your help.

Etienne