Распределение данных по листам в книге - VB

Формулировка задачи:

подскажите как нужно указать счетчик, что бы приразбивке по счетам на другие листы все записи были по порядку без пустых строк. На данный момент макро сразбивает по листам но не порядку строки.
рассмотрю и другие предложенные варианты )))

Решение задачи: «Распределение данных по листам в книге»

textual
                            Листинг программы 
                        

                            Sub РАСКИДАТЬ()
 Dim M()
 Dim LR
 Dim R, C
 Очистить
 Dim L
 LR = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
 M = Sheet3.Range(Sheet3.Cells(1, 1), Sheet3.Cells(LR, 8)).Value
For R = 1 To 27
  For C = 1 To 8
      Sheets(Trim(Str(R))).Cells(1, C) = M(1, C)
Next C, R
For R = 2 To UBound(M)
 L = VBA.Right(M(R, 2), 2)
 LR = Sheets(Trim(Str(L))).Cells(Rows.Count, 1).End(xlUp).Row + 1
  For C = 1 To 8
      Sheets(Trim(Str(L))).Cells(LR, C) = IIf((C = 2 Or C = 4), Format(M(R, C), "##############"), M(R, C))
Next C, R
 End Sub
 
Sub Очистить()
Dim J
For J = 1 To 27
    Sheets(Trim(Str(J))).Cells.ClearContents
Next J
End Sub

                        