Filter/Copy based sheet name paste non adjacent columns

Hi.

My code get values (tabs name) in column B ("Master"), and copy based criteria in column B

Tab -> Master
ColA---ColB----ColC
------Report A------
------Report B------
------Report C------
------Report A------
Copy columns to tabs ("Report A","Report B","Report C")...but....
Columns in in master tab is diferrent position in ("Report A","Report B","Report C").

I need copy columns("E:I") from "Master" to ("Report A","Report B","Report C"), in columns (A:B, D, G:H)

This should do it

Sub CopyToColWrong()
    Dim bottomD As Integer
    bottomD = Worksheets("Master").Range("A" & Rows.Count).End(xlUp).Row
    Dim c As Range
    For Each c In Worksheets("Master").Range("B2:B" & bottomD)
        Worksheets(c.Value).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(, 8) = _
        Array(c.Offset(, 3).Value, c.Offset(, 4).Value, Empty, c.Offset(, 5).Value, Empty, Empty, c.Offset(, 6).Value, c.Offset(, 7).Value)
    Next c
End Sub

Hi Mike, you're geate!

thank you very much!!!!