Excel VBA - copy area 8 columns by X rows, paste as 4 columns by 2X rows?

[Tomkat53]

So basically I have data arragned like...

1,2,3,4,5,6,7,8
1,2,3,4,5,6,7,8
1,2,3,4,5,6,7,8
........

**NOTE** The source range is dynamic, not static, so although it is always 8 columns, it can be any number of rows.
I'm using Selection.End(xlDown), etc to copy the source range to account for this.

Then I want to copy/paste/re-arrange via macro so that the paste destination looks like...

1,2,3,4
5,6,7,8
1,2,3,4
5,6,7,8
1,2,3,4
5,6,7,8
....
....

I know I should be able to do this, and I've searched for the answer, but I think I'm not describing my issue with the correct terms.
Can anyone please help me?

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Copy 8 columns of data, paste "stacked" into 4 colums?
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Tomkat53]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Copy 8 columns of data, paste "stacked" into 4 colums?
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

I apologize, but they looked like completely different forums, to me.
I even have separate logins.

I'm confused. What's the deal?

 

[Fluff]

they looked like completely different forums,

They are.

I'm confused. What's the deal?

Try reading the link at the end of the rule, that way you will understand.

 

[kevin9999]

No idea where your data starts (A1?) or where the destination is, but please adjust the following code to suit your actual case. This demo assumes contiguous data from A1 & the destination is J1.

Option Explicit
Sub Stack4()
    Dim a, b, i As Long, j As Long, k As Long
    a = Range("A1").CurrentRegion
    ReDim b(1 To UBound(a, 1) * 2, 1 To 4)
    j = 1
    
    For i = 1 To UBound(b, 1)
        For k = 1 To 4
            b(i, k) = a(j, k)
        Next k
        i = i + 1
        For k = 1 To 4
            b(i, k) = a(j, k + 4)
        Next k
        j = j + 1
    Next i
    Range("J1").Resize(UBound(b, 1), 4) = b
End Sub

Before & after:

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	1	2	3	4	5	6	7	8		1	2	3	4
2	1	2	3	4	5	6	7	8		5	6	7	8
3	1	2	3	4	5	6	7	8		1	2	3	4
4	1	2	3	4	5	6	7	8		5	6	7	8
5	1	2	3	4	5	6	7	8		1	2	3	4
6	1	2	3	4	5	6	7	8		5	6	7	8
7	1	2	3	4	5	6	7	8		1	2	3	4
8	1	2	3	4	5	6	7	8		5	6	7	8
9	1	2	3	4	5	6	7	8		1	2	3	4
10	1	2	3	4	5	6	7	8		5	6	7	8
11										1	2	3	4
12										5	6	7	8
13										1	2	3	4
14										5	6	7	8
15										1	2	3	4
16										5	6	7	8
17										1	2	3	4
18										5	6	7	8
19										1	2	3	4
20										5	6	7	8
21
Sheet1

 

[Tomkat53]

No idea where your data starts (A1?) or where the destination is, but please adjust the following code to suit your actual case. This demo assumes contiguous data from A1 & the destination is J1.

Option Explicit
Sub Stack4()
    Dim a, b, i As Long, j As Long, k As Long
    a = Range("A1").CurrentRegion
    ReDim b(1 To UBound(a, 1) * 2, 1 To 4)
    j = 1
  
    For i = 1 To UBound(b, 1)
        For k = 1 To 4
            b(i, k) = a(j, k)
        Next k
        i = i + 1
        For k = 1 To 4
            b(i, k) = a(j, k + 4)
        Next k
        j = j + 1
    Next i
    Range("J1").Resize(UBound(b, 1), 4) = b
End Sub

Before & after:

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	1	2	3	4	5	6	7	8		1	2	3	4
2	1	2	3	4	5	6	7	8		5	6	7	8
3	1	2	3	4	5	6	7	8		1	2	3	4
4	1	2	3	4	5	6	7	8		5	6	7	8
5	1	2	3	4	5	6	7	8		1	2	3	4
6	1	2	3	4	5	6	7	8		5	6	7	8
7	1	2	3	4	5	6	7	8		1	2	3	4
8	1	2	3	4	5	6	7	8		5	6	7	8
9	1	2	3	4	5	6	7	8		1	2	3	4
10	1	2	3	4	5	6	7	8		5	6	7	8
11										1	2	3	4
12										5	6	7	8
13										1	2	3	4
14										5	6	7	8
15										1	2	3	4
16										5	6	7	8
17										1	2	3	4
18										5	6	7	8
19										1	2	3	4
20										5	6	7	8
21
Sheet1

I forgot to mention that the source and destination are on different worksheets.
I think I can modify this code to account for that... thanks!

 

[kevin9999]

Happy to help, and thanks for the feedback