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