group Rows based on a specific value in column

Originally Posted by Trebor76

Hi Lisa,

Create a tab called Sheet2 and then run the following from Sheet1:

Option Explicit
Sub Macro1()
    
    Application.ScreenUpdating = False
    
    With ActiveSheet
        'Remove any existing filters
        .AutoFilterMode = False
        'Filter the data by the desired Part# with Col. C (not case sensitive)
        .Range("C1").AutoFilter Field:=3, Criteria1:="3519"
        .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) 'Copies the data to the next available row in Col. A of Sheet2. Change to suit.
        'Remove existing filter
        .AutoFilterMode = False 'Comment out this line if you want the filter left in place
    End With
    
    Application.ScreenUpdating = True
    
End Sub

HTH

Robert

Hi Robert,
apparently the i am looking to export the group of rows along with the '3519' value row ,this code only filters out the rows that contain the "3519" value.. is there a workaround for this?