Вот Вам решение с использованием формул:  
http://excelvba.ru/XL_Files/Sample__31-10-2009__18-34-30.zip  
 
Выделяете диапазон A1:F9, и растягиваете его на нужное количество строк.  
 
Все формулы имеют примерно такой вид:  =ДВССЫЛ("Форма_печать!D"&(СТРОКА()+6)/9*2 + (СТОЛБЕЦ()-2)/3 +3)

{quote}{login=Rezh}{date=02.11.2009 09:35}{thema=}{post}Попробую перевести это на VBA{/post}{/quote}  
 
Если бы в данном случае имело смысл использовать макросы для заполнения этикеток - я бы так и сделал. (мне проще написать макрос, чем простейшую формулу)  
 
Но в данном случае формул более чем достаточно...  
Зачем Вам именно макрос?

Делать было нечего - написал макрос для создания квитков.  
 
Можно было, конечно, сделать всё проще, но мой вариант относительно универсальный.  
 
Шаблон квитка хранится на скрытом листе ШАБЛОН  
 
Скачать файл с макросом можно здесь:  http://excelvba.ru/XL_Files/Sample__03-11-2009__22-06-31.zip  
 
 
Вот, собственно, весь код:  
 
Sub СоздатьКвиточки()  
   Dim cell As Range, ra As Range, n As Long: Application.ScreenUpdating = False  
   Set ra = Range([d5], Range("d" & Rows.Count).End(xlUp))
   Dim Квиточки As Worksheet: Set Квиточки = Worksheets.Add(, Worksheets(Worksheets.Count))  
   Квиточки.Name = "Квиточки " & Format(Now, "DD-MM-YYYY HH-NN-SS")  
   With Квиточки.PageSetup  
       .Zoom = False: .FitToPagesWide = 1: .FitToPagesTall = 1000  
   End With  
 
   n = 0    ' номер квитка  
   For Each cell In ra.Cells    ' перебираем все заполненные фамилии  
       If Len(cell) > 2 Then    ' если длина фамилии больше, чем 2 символа  
           [Кооператив] = cell.Previous
           [показатель1] = cell.Next: [показатель2] = cell.Next.Next
           [ФИО] = cell: [Сумма] = cell.Offset(, 4)
           ДобавитьКвитокНаЛист Квиточки, n  
           n = n + 1  
       End If  
   Next cell  
   Квиточки.Tab.Color = vbGreen: ActiveSheet.ResetAllPageBreaks: ActiveWindow.View = 2  
   For i = 1 To n ' ставим разрывы страниц  
       If i Mod 6 = 0 Then Set Квиточки.HPageBreaks(i \ 6).Location = Квиточки.Cells(1 + [квиток].Rows.Count * (i \ 2), 1)
   Next  
End Sub  
 
Sub ДобавитьКвитокНаЛист(ByRef sh As Worksheet, n As Long)  
   With [квиток]
       Set МестоДляНовогоКвитка = sh.Cells(1 + .Rows.Count * (n \ 2), 1 + .Columns.Count * (n Mod 2)).Resize(.Rows.Count, .Columns.Count)  
       .Copy МестоДляНовогоКвитка  
       If n < 2 Then    ' устанавливаем ширину столбцов  
           For i = 1 To .Columns.Count  
               МестоДляНовогоКвитка.Cells(i).EntireColumn.ColumnWidth = .Cells(i).EntireColumn.ColumnWidth  
           Next i  
       End If  
       For i = 1 To .Rows.Count    ' устанавливаем высоту строк  
           МестоДляНовогоКвитка.Cells(i, 1).EntireRow.RowHeight = .Cells(i, 1).EntireRow.RowHeight  
       Next i  
   End With  
End Sub

> Не знаю как сделать без _Change?  
 
В предложенном мной макросе никакие Change не используются...  
 
Чем не устраивает мой макрос?

> Прилично, по отношению к ДВССЫЛ..! да и динамика в ДВССЫЛ.. присутствует  
а мой вариант с формулами в таком случае чем не устроил?  
Там та ещё динамика... динамичнее не бывает    
 
> при изменении таблицы обновлять чем?  
Нажатием одной кнопки, запускающей макрос

Извините, Полный тормоз!Запускать чем то все равно надо.

Сделал универсальную надстройку для создания и печати этикеток, наклеек, ценников и квитанций из Excel  
 
Скачать её можно здесь: http://excelvba.ru/programmes/Labels  
 
 
PS: Тема эта на форуме, конечно, старая, но мне на сайт отсюда идут люди, и не находят готовое решение (ибо поиск у меня на сайте плохо работает)  
Потому и решил опубликовать ссылку на решение здесь.