Нужно чтобы из списка производился подбор с учетом условий. Из списка 100 человек происходит подбор по 4 человека (подбор происходит по порядку) далее вывод на печать принтера в настройках принтера расположение листа горизонтально страницы 1-1. И так далее 5,6,7,8 печать и пока все не распечатается

Есть наброски:


Sub test()  
  Dim Vcell As Range, cell As Range: Set Vcell = [CD23]: cv = Vcell
  [b100].FormulaLocal = Vcell.Validation.Formula1: f = [b1000].Formula: [b1000] = ""
  For Each cell In Application.Evaluate(f)  
      Vcell = cell  
      ActiveSheet.PrintPreview  
  Next cell  
  Vcell = cv  
End Sub  

Но я не знаю как правильно в ячейках CD23,CD24,CD25,CD26 происходил  одновременно подбор  и установить шаг подбора