Copy data between 2 empty lines save as new file and then next

[Milena]

Hi,

I was wondering if anybody will be able to help me.
I am fairly new to VBA.

I have created a macro that will pull the data from file based on multiple criteria, group them together, assign invoice number and separate the invoices with blank rows. It will look something like this (with a lot more columns):

[TABLE="class: grid, width: 100"]
<tbody>[TR]
[TD]invoice number[/TD]
[TD]description[/TD]
[TD]value[/TD]
[/TR]
[TR]
[TD]NL1[/TD]
[TD]aaaaa[/TD]
[TD]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]bbbbb[/TD]
[TD]20[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]NL2[/TD]
[TD]aaaa[/TD]
[TD]12[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]ccccc[/TD]
[TD]30[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]ddddd[/TD]
[TD]40[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]NL3[/TD]
[TD]bbb[/TD]
[TD]10[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]aaaaa[/TD]
[TD]30[/TD]
[/TR]
</tbody>[/TABLE]

How do I then copy the information between the blank lines into separate files (I need to create proforma invoices).
So all transactions for NL1 as 1 file, NL2 as another file ect. Is that possible?


The number of invoices will vary each month and there can be various number of items per 1 invoice. Invoices are numbered sequentially.

 

[Fluff]

How about

Sub Milena()
   Dim Rng As Range
   Application.ScreenUpdating = False
   For Each Rng In Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      Workbooks.Add
      Rng.EntireRow.Copy Range("A1")
      With ActiveWorkbook
         .SaveAs ThisWorkbook.path & "\" & Rng.Offset(, -1).Resize(1, 1).Value, 52
         .Close
      End With
   Next Rng
End Sub