How does the "Move after" work? The "1" after the "count" is doing what? What is "mod"? What is "If Not"? Thanks
Sub Divide()
Dim wks As Worksheet
Dim intLastRow As Integer, intRow As Integer, intRowT As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
intLastRow = wks.Cells(Rows.Count, 1).End(xlUp).Row
For intRow = 1 To intLastRow
If intRow Mod 7 = 1 Then intRowT = intRowT + 1
If Not IsEmpty(wks.Cells(intRow, 1)) Then
Cells(intRowT, intRow Mod 7) = wks.Cells(intRow, 1)
End If
Next intRow
Application.ScreenUpdating = True
End Sub
Bookmarks