copy adjacent cells and paste to non-adjacent selection

[frankpat]

I have values in cells A1, A2, A3, etc.

I would like to copy those values and paste to non-adjacent cells such as B2, B15, B23

How can this be done?

 

[Oaktree]

Is there a pattern to the mapping? (e.g. A1, A2, A3 always moves down one, destination starts at B2, then moves down 13, then down 8, then down 13, then down 8, etc.)

Alternatively, can you list the full mapping?

 

[erik.van.geit]

Hello, frankpat
Welcome to the Board !!!

try something like this

Sub test()
Dim cell As Range
Dim i As Integer

    For Each cell In Range("B2, B15, B23")
    i = i + 1
    cell.Value = Range("A1:A3")(i).Value
    Next cell
End Sub

can't you use formulas ?

kind regards,
Erik
EDIT: good point Oaktree, I didn't see a pattern

 

[frankpat]

No, there is no pattern.
I just want to copy a range of, say, 5 cell values, then paste those values into 5 non-adjacent cells in another spreadsheet. Note that the target location will be a single column.

Thanks for any tip(s) you can offer.

 

[erik.van.geit]

Thanks for any tip(s) you can offer.

you've got one