XLS S brought next idea :
Hey ,

try this code

Sub Selectandpaste()
Range("B1:D1").Select

Selection.Copy
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Range("B1")).Select
Selection.PasteSpecial

End Sub

Why so many lines of code?...

Sub Selectandpaste()
Range("B1:D1").Copy
Range(Range("A1").End(xlDown).Offset(0, 1), Range("B1")).PasteSpecial
Application.CutCopyMode = False
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc