VBA/Excel/Access/Word/Excel/AdvancedFilter

AdvancedFilter Action:=xlFilterCopy

 
Sub AllColumnsOneCustomer()
    Dim IRange As range
    Dim ORange As range
    Dim CRange As range
    Set CRange = cells(1, 1).resize(2, 1)
    Set ORange = cells(1, 3)
    Set IRange = range("A1").resize(FinalRow, 1)
    IRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=CRange, CopyToRange:=ORange
End Sub

Advanced Filter Demo

 
     Private Sub CommandButton1_Click()
         Dim rngData As Range
         Dim rngCriteria As Range
         Dim rngExtract As Range
         Set rngData = Workbooks("DataList5.xlsm").Worksheets("Sales").Range("Database")
         Set rngCriteria = ThisWorkbook.Worksheets("Sales").Range("Criteria")
         Set rngExtract = ThisWorkbook.Worksheets("Sales").Range("Extract")
         "Extract data with Advanced Filter
         rngData.AdvancedFilter Action:=xlFilterCopy, _
                              CriteriaRange:=rngCriteria, _
                              CopyToRange:=rngExtract, _
                              Unique:=False
     End Sub

Do the Advanced Filter

 
Sub UniqueCustomerRedux()
    Range("J1").Value = Range("D1").Value
    Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
End Sub