VBA to split data into new sheets based on TWO columns/criteria?

[cdrobinson83]

I’ve seen code shared that will split data into new sheets within a workbook based on criteria in a column. Is this possible to do with more than one column? For example, if I have an account (columns A) with two different products (column B), can I write to create two new sheets? The workaround I have is to merge the data of the two columns into one and then use that new column as the criteria used to split into each sheet. Is there a way to bypass this step?

 

[Legacy 143009]

Like this?

Sub siplitAccounts()
  Dim lRow As Long
  Dim ws As Worksheet
  lRow = Cells(Rows.Count, 1).End(xlUp).Row
  For ascii = 65 To 66
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
    ws.Name = "Copy" & Chr(ascii)
    ws.Cells(1, 1).Value = "Account"
    ws.Cells(1, 2).Value = "Product"
  Next
  For i = 2 To lRow - 1
    For j = i + 1 To lRow
      If Cells(i, 1).Value = Cells(j, 1).Value Then
        With Worksheets("CopyA")
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Cells(i, 1).Value
        .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Cells(i, 2).Value
        End With
        With Worksheets("CopyB")
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Cells(j, 1).Value
        .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Cells(j, 2).Value
        End With
      End If
    Next
  Next
End Sub