Copy Exported Data by Category

A power query solution

Please Login or Register  to view this content.

Excel 2016 (Windows) 64 bit

	A	B	C	D
13	5/23/2023	6/2/2023	7/10/2023	8/10/2023
14	1	1	1	1
15	2	2	2	2
16	3	3	3	3
17	4	4		4
18		5		5
19		6		6
20		7		7
21				8
22				9
23				10

Sheet: Sheet2

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

- Follow this link for an introduction to Power Query functionality.

- Follow this link for a video which demonstrates how to use Power Query code provided.

According to the attachment a beginner level VBA demonstration for starters :

PHP Code: 

Sub Demo1()
         Dim Rc As Range, C%
    With Sheet1
        .UsedRange.Clear
    For Each Rc In Sheet2.UsedRange.Columns(1).SpecialCells(2)
        C = C + 1
        Rc.Copy .Cells(C)
        Range(Rc(3, 5), Rc(2, 5).End(xlDown)).Copy .Cells(2, C)
    Next
        .UsedRange.Columns.AutoFit
    End With
        Set Rc = Nothing
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Thanks for the rep. If you are interested in advancing your skills with PQ, then pick up the book on Amazon by Ken Puls and Miguel Escobar.

Could be or this :

PHP Code: 

Sub Demo2()
         Dim Rc As Range, C%, V
    With Sheet1
        .UsedRange.Clear
    For Each Rc In Sheet2.UsedRange.Columns(1).SpecialCells(2)
        C = C + 1
        V = Range(Rc(2, 5), Rc(2, 5).End(xlDown))
        V(1, 1) = Rc
        .Cells(C).Resize(UBound(V)) = V
    Next
        .UsedRange.Columns.AutoFit
    End With
        Set Rc = Nothing
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

I added Offset 'cause my bad I worked from post #2 attachment instead of your original post …