Sub bolyaz() For say = 1 To Worksheets.Count son = Sheets(say).Cells(653000, "A").End(3).Row uz = WorksheetFunction.RoundUp(son / 50, 0) i = 1 For sut = 2 To uz + 1 For sat = 1 To 12 Sheets(say).Cells(sat, sut) = Sheets(say).Cells(i, 1) i = i + 1 Next sat Next sut Next say End Sub