VBA Repeat cells

[grifdoogindoggy]

How would I turn:

A1
A2
A3

Into:

A1
A2
A3
A1
A2
A3

as many times as I want into a different sheet?

 

[lrobbo314]

Maybe something like this.

Sub Repeat()
Dim wm As Worksheet: Set wm = Sheets("Sheet1") 'Main Sheet
Dim wn As Worksheet: Set wn = Sheets("Sheet2") 'Sheet to copy to
Dim Times As Long: Times = 5
Dim LR As Long
Dim AR() As Variant: AR = wm.Range("A1:A" & wm.Range("A" & Rows.Count).End(xlUp).Row).Value


For i = 1 To Times
    LR = wn.Range("A" & Rows.Count).End(xlUp).Row + 1
    wn.Range("A" & LR).Resize(UBound(AR), 1).Value = AR
Next i


End Sub

 

[grifdoogindoggy]

Maybe something like this.

Sub Repeat()
Dim wm As Worksheet: Set wm = Sheets("Sheet1") 'Main Sheet
Dim wn As Worksheet: Set wn = Sheets("Sheet2") 'Sheet to copy to
Dim Times As Long: Times = 5
Dim LR As Long
Dim AR() As Variant: AR = wm.Range("A1:A" & wm.Range("A" & Rows.Count).End(xlUp).Row).Value


For i = 1 To Times
    LR = wn.Range("A" & Rows.Count).End(xlUp).Row + 1
    wn.Range("A" & LR).Resize(UBound(AR), 1).Value = AR
Next i


End Sub

Thank you! This works well, but for some reason this is printing into the A2 cell and not the A1?

 

[lrobbo314]

This should do it.

Sub Repeat()
Dim wm As Worksheet: Set wm = Sheets("Sheet1") 'Main Sheet
Dim wn As Worksheet: Set wn = Sheets("Sheet2") 'Sheet to copy to
Dim Times As Long: Times = 5
Dim LR As Long
Dim AR() As Variant: AR = wm.Range("A1:A" & wm.Range("A" & Rows.Count).End(xlUp).Row).Value


For i = 1 To Times
    If i = 1 Then
        LR = wn.Range("A" & Rows.Count).End(xlUp).Row
    Else
        LR = wn.Range("A" & Rows.Count).End(xlUp).Row + 1
    End If
    wn.Range("A" & LR).Resize(UBound(AR), 1).Value = AR
Next i


End Sub

 

[grifdoogindoggy]

Perfect! Thank you.