Simple loop/for/do needed

[rossbritton26]

Hi,

I am trying to do something that i think is quite simple!!
I am trying to copy a range of cells of size 3to7, repeatedly into a specified column/range, until the thirteen destination cells are full.

e.g
i have range
A
B
C
D

so the thirteen cells would read:
A
B
C
D
A
B
C
D
A
B
C
D
A

if anyone could give me some help it would be much appreciated

please note, the use of A,B,C & D are for illustration purposes only!!
and the number of original cells may change from between 3 and 7.

Thanks
Ross.

 

[JoeMo]

HJere's an example you can adapt. In this example, the data to copy is in Range A2:A5 and the 13 cells to fill by repetitive pastes are D2:D14:

Sub ThirteenPaste()
Dim rC As Range, rP As Range
Set rC = Range("A2:A5")
Set rP = Range("D2:D14")
rC.Copy
For i = 1 To rP.Rows.Count Step rC.Rows.Count
    If rP.Rows.Count - i > rC.Rows.Count Then
        rP.Rows(i).PasteSpecial Paste:=xlValues
    Else
        rC.Resize(rP.Rows.Count - i + 1).Copy
        rP.Rows(i).PasteSpecial Paste:=xlValues
    End If
Next i
End Sub