VBA to extract data from block info in a long row,and copy on another sheet non adjacent column

[AndyJR]

Hi all,

I know a lil bit excel, and i just started to learn VBA, need some help on creating this report.

In a worksheet "Hist" i have a 36 block of data located in a single row, each block use 12 column of data
block 1 = F4:Q4, (3 blanc column) then Block 2 = U4:AF4, then (3 blanc column) and Block 3.... and so on

what i need to achieve is :
extract block 1 (12 data column) and copy to worksheet "Report" but "non adjacent row", starting on

$B4:$Q4

extract block 2 (12 data column) and copy to worksheet "Report" but "non adjacent row", starting on

$U5:$AF5

extract block 3 (12 data column) and copy to worksheet "Report" but "non adjacent row", starting on

$AJ6:$AU6

extract block 4 (12 data column) and copy to worksheet "Report" but "non adjacent row", starting on

$AY7:$BJ7

And so on till reach the block 36



thank you in advance, Any help is appreciated !


Andyjr

 

[JLGWhiz]

Based on the illustration in post #10, maybe this is what you want.

Sub copyStuff5()
Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, rw As Long, lc As Long
Set sh1 = Sheets("Hist")
Set sh2 = Sheets("Report")
lc = sh1.Cells(4, Columns.Count).End(xlToLeft).Column - 11
    rw = 4
    For i = 2 To lc Step 15
        sh1.Cells(4, i).Resize(1, 12).Copy sh2.Cells(rw, 2)
        rw = rw + 1
    Next
    For j = 23 To 3 Step -1
        Columns(j).Insert
    Next
End Sub