Hi all

Using Office Excel 2003 Sp1

Is it possible to copy a 3 cell range from €œSheet1€� to €œSheet2€� without
selecting €œSheet2€� using Destination?
My problem is trying to locate the first blank cell in column B on €œSheet2€�
and then pasting only the values of the 3 cells.

Sub CopyValu()
Dim dt as Worksheet
Set dt = Worksheets(€œData1€�)

Range(€œB13:D13€�).Copy Destination:=dt.Cells(rows.Count,
€œB€�).End(xlUp).Offset(1, 0)

Can a paste values only be added to this line and if so, please how?

I started out with recorded code and got as far as lines below, but am now
stumped. Can not join all lines together.

[C13:D13].Copy
Sheets("Data1").Select
Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlPasteValuesAndNumberFormats, Operation:= xlNone, SkipBlanks:= _
False, Transpose:=False

Any help greatly appreciated.

--
Thank you

Regards

Bob C