Sub CopyValue()
Dim dt As Worksheet
Set dt = Worksheets("Data1")

Range("B13:D13").Copy
dt.Cells(Rows.Count, "B").End(xlUp) _
.Offset(1, 0).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

End Sub



--
Regards,
Tom Ogilvy


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



"Robert Christie" wrote in message
...
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