VBA code : suggestion

[ericvu23]

Hi everyone,

I need some suggestions regarding my VBA code, indeed it has the purpose to copy and stick with the link my specified series.
However,the multiple series are displayed (with my VBA code) such as :

1
x
x
x
2
x
x
x

I would like them to be exhibited as follow :

1 2
x x
x x
x x

Here is my VBA code :

Dim n, i As Double

n = 26
For i = 1 To 99
n = 26 + (i - 1) * 21

Sheets("1-Weights").Select
Range("B" & n & ": B" & n + 20).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1-Plot").Select
Range("B" & n + 21).Select
ActiveSheet.Paste Link:=True

Next

End Sub

Does someone have any suggestion ? It will help me a lot .

Thanks in advance,

Eric,

 

[GlennUK]

Shouldn't it be:

Range("B1").Offset(0,i-1).Select

before the Paste, instead of the current Select statement you have?

 

[ericvu23]

Thanks,it works pretty well .

Cheers,

Eric