Copy but paste in different cells. Please help - Thanks

[pedie]

Hi,
What 'm trying to achieve here is for the code to select the first 3cells only (row) not the whole xltoright.
how can i make the code to copy the 1st 3 cells in the row and then select A1 and paste the 1st value
2nd value in A5 and 3rd copied value to A6?

Thanks for helping

Sub Macro1()
Sheet1.Select
ActiveCell.Select
    Range(Selection, Selection.End(xlToRight)).Copy
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[HalfAce]

Hi Pedie,
How about something like this?

Sub Macro1()
Sheet1.Select
With Cells(ActiveCell.Row, "A")
    .Copy Range("A1")
    .Offset(, 1).Copy Range("A5")
    .Offset(, 2).Copy Range("A6")
End With
End Sub

(Oh yeah, do you really need to select sheet1?)

Does that help?

 

[meldoc]

Hi pedie

Do you mean this?

Excel Workbook
	A	B	C
1	1	2	3
2
3
4	1
5	2
6	3
Sheet1

Excel 2007<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> test()<br>  <SPAN style="color:#00007F">With</SPAN> Sheet1<br>    .Range("A1").Resize(, 3).Copy<br>    .Range("A4").PasteSpecial Paste:=xlPasteAll, Transpose:=<SPAN style="color:#00007F">True</SPAN><br>  <SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">With</SPAN><br>  Application.CutCopyMode =<SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[pedie]

Hi Dan, Hi Brian..!
Sorry, got some work so could reply back soon. I'm not sure if I am doing it wrong or 'm explaining
it differently.
ActiveCell.Resize(, 3).Copy is good enough but i dont want them to be pasted in serial altogether
from the copide value, I want the first value to be on A1, and the other two to be in A5 and A6.
Thanks again!
Pedie

 

[pedie]

Dan, your code seems to do something but i'm new to those so dont know what is going on..lol
I select f3, and run the code...what i expect is that it will copy f3,4 & f5 and paste it in a1 (the 1st copied value, nd in A5 and 3rd in A6),
But it just pasted in A5 only

 

[VoG]

Does this do it

Sub macro1()
Sheet1.Select
With ActiveCell
    .Copy Destination:=Range("A1")
    .Offset(, 1).Copy Destination:=Range("A5")
    .Offset(, 2).Copy Destination:=Range("A6")
End With
End Sub

 

[pedie]

Vog, that is it. Thank you. Thanks alot!
Thanks to everyone!

 

[HalfAce]

Oh, I thought you wanted to always copy columns A:C...