Sub ExportY()
Dim a As Range, p$
  p = ActiveWorkbook.FullName
  p = Left(p, InStrRev(p, "."))
  Application.ScreenUpdating = False
  Rows(1).Insert
  Range("A1:E1") = Split("a b c d e")
  Range("A1").Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(5), _
      Replace:=True, PageBreaks:=False, SummaryBelowData:=True
  Rows(1).Delete
  For Each a In Range("B:B").SpecialCells(xlCellTypeConstants).Areas
    With Workbooks.Add(xlWBATWorksheet)
      a.Resize(, 4).Copy .Sheets(1).Range("A1")
      .SaveAs Filename:=p & a.Cells(1).Offset(, -1), FileFormat:=xlText, CreateBackup:=False, local:=False
      .Close False
    End With
  Next
  Selection.RemoveSubtotal
  Application.ScreenUpdating = True
End Sub