Help with pieces of a code that copy things into a new sheet

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