Kişileri sabit hücredeki sayıya böldürerek gruplara ayırmak

[Rocken]

Merhabalar,

Vardiyamızdaki değişken kişi sayısını, 4 mola gurubu halinde her seferinde böldürmek istiyoruz.

Yardımcı olabilirseniz sevinirim.

Iyi Çalışmalar


http://dosya.co/h2kjcz6qbqp8/Vard_Mola.xlsx.html

 

[Rocken]

kim = WorksheetFunction.Ceiling(WorksheetFunction.CountA(Range("b3:b100")) / [4], 1)
Range("B3:B" & kim).Select
Selection.Copy
Range("E3").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Bu işlemin sonucu şeçilen 16 kişi olsun
ikinci 16 'yı seçtirecek kodu yazmaya çalışıyorum