You're gonna be pasting over the same cells each time--always a1, a4, a5, a8,
a10??

And how do you know when to advance to the next row???

Option Explicit
Sub testme()

Dim fWks As Worksheet
Dim tWks As Worksheet
Dim iRow As Long
Dim iCtr As Long
Dim fCols As Variant
Dim tAddr As Variant

Set fWks = Worksheets("Sheet1")
Set tWks = Worksheets("sheet2")

fCols = Array("a", "B", "d", "H", "k")
tAddr = Array("a1", "a4", "a5", "a8", "a10")

If UBound(fCols) <> UBound(tAddr) Then
MsgBox "Design error!"
Exit Sub
End If

With fWks
.Activate
iRow = ActiveCell.Row 'how do you know which one to use?
For iCtr = LBound(fCols) To UBound(fCols)
fWks.Cells(iRow, fCols(iCtr)).Copy _
Destination:=tWks.Range(tAddr(iCtr))
Next iCtr
End With
End Sub





Mr_Flamenco wrote:
>
> Thanx bro.. that was really helpful and cooool thing
>
> i have another problem
>
> i have two difference sheets in excel.. and i need to copy some data
> from the 2nd sheet to the 1st sheet.. the problem is.. the data i want
> to copy are Row wise and i want to paste them Column.. and there are
> not in one range.. i mean for example : A1 B1 D1 H1 K1 and i want to
> paste them in A1 A4 A5 A8 A10
>
> and each time i want to copy it should copy from the next row i.e A2 B2
> D2 H2 K2 and paste them to the same column i.e A1 A4 A5 A8 A10
>
> and all this is done thought a botton... i am not an excel or VB
> programmer so i am facing some difficulties with it..
>
> thank you in Advance
>
> --
> Mr_Flamenco
> ------------------------------------------------------------------------
> Mr_Flamenco's Profile: http://www.excelforum.com/member.php...o&userid=29733
> View this thread: http://www.excelforum.com/showthread...hreadid=494435

--

Dave Peterson