Filter VBA

[Clock10816]

Hello!

I would like to filter data from Sheet1 that includes a certain text inside an item code "Example1", and copy and paste the entire row into another sheet (Sheet2). I want to do this for Example2 as well and copy and paste the entire row into Sheet3. This needs to be copied and pasted and not an array.

Thank you!!

 

[kevin9999]

Even though your image shows your data floating in mid air, I'm assuming it starts in column A, with your headers in row 1.
Try the following on a copy of your workbook.

Option Explicit
Sub Clock10816_Copy()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    Set ws3 = Worksheets("Sheet3")
    
    If ws1.AutoFilterMode Then ws1.AutoFilter.ShowAllData
    With ws1.Range("A1").CurrentRegion
        .AutoFilter 1, "*Example1*"
        If .SpecialCells(xlCellTypeVisible).Address <> .Rows(1).Address Then
            .Offset(1).Resize(.Rows.Count - 1).Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .AutoFilter
        End If
        .AutoFilter 1, "*Example2*"
        If .SpecialCells(xlCellTypeVisible).Address <> .Rows(1).Address Then
            .Offset(1).Resize(.Rows.Count - 1).Copy ws3.Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .AutoFilter
        End If
    End With

End Sub