予めAA BB CCのｼｰﾄを作成し､ﾃｷｽﾄとして表示したい画面を作成しておきます｡
ｼｰﾄ作成後､各ｼｰﾄを自動的にCSV形式で保存するようなﾏｸﾛを組んでは如何でしょうか｡

AAのｼｰﾄのA列に
●地区
東京

●品名
CCC

●数量
8

●金額
3

のように表示させていると､そのままﾃｷｽﾄとして保存出来ると思います｡

1行目のA列から列ﾀｲﾄﾙが記入されており､2行目以降にﾃﾞｰﾀが記入されている前提で､
その内容をﾌｧｲﾙに出力するﾏｸﾛです｡
ﾌｧｲﾙに出力したいｼｰﾄを表示して､outputFilesﾏｸﾛを実行してください｡

Sub outputFiles()
 Set colList = getColItems(Range("A1"))
 
 Set r = Range("A2")
 Do While r.Text <> ""
 Set dataList = getColItems(r)
 Call outputFile(colList, dataList)
 Set r = r.Offset(1, 0)
 Loop
 
 MsgBox "終わりました"

End Sub

Private Function getColItems(baseRange)
 Set getColItems = New Collection
 Set r = Cells(baseRange.Row, baseRange.Column)
 Do While r.Text <> ""
 Call getColItems.Add(r.Text)
 Set r = r.Offset(0, 1)
 Loop
End Function

Private Sub outputFile(colList, dataList)
 Set fso = CreateObject("Scripting.FileSystemObject")
 file = fso.GetParentFolderName(ActiveWorkbook.FullName) & "\" & dataList(1) & ".txt"
 Set ts = fso.OpenTextFile(file, 2, True)
 For i = 2 To colList.Count
 Call ts.WriteLine("●" & colList(i))
 Call ts.WriteLine(dataList(i))
 Call ts.WriteLine("")
 Next
 ts.Close
End Sub