Copy and paste filtered data

[ZaneCOYS]

Hi,

I am looking to copy data from one worksheets to another. I will be filtering on column "U" using an array to show the 'to be filtered by' data. The code I have for this is:

For d = 1 To 21
Worksheets("Raw Data wo ACT").Activate
Range("U1").Select
Selection.AutoFilter Field:=21, Criteria1:=data_info(d, 1)

Next d

I now need to Copy the filtered data from Columns E,F,H,R,S,T. and paste to another worksheet. To make this more complex the destination of the paste is diferent for each filter.

please help as I seem to be going around in circles.

 

[jbeaucaire]

Something along these lines:

Dim LR As Long
Dim wsDest As Worksheet

Set wsDest = Sheets("Report")

With Worksheets("Raw Data wo ACT")
    .AutoFilterMode = False
    .Rows(1).AutoFilter

    For d = 1 To 21
        .Rows(1).AutoFilter Field:=21, Criteria1:=data_info(d, 1)
        LR = .Range("U" & .Rows.Count).End(xlUp).Row
        If LR > 1 Then _
            .Range("E2:F" & LR & _
                  ",H2:H" & LR & _
                  ",R2:T" & LR).Copy _
                wsDest.Range("A" & Rows.Count).End(xlUp).Offset(1)
    Next d

    .AutoFilterMode = False
End With