Moving Data

Hello Peeps,

I'm having some trouble with using a macro to copy some data from one sheet across multiple. I have a master sheet that contains training data for my divisional personnel. Columns A-E contain the personnel information with column E identifying what work group the personnel belong to; these are labeled as Section 1, Section 2, etc through Section 5. What I'm trying to do is have individual sheets for each section. I want the macro to look in column E in my master sheet, find every row that belongs to personnel in a particular section, and copy the contents of that row into the corresponding sheet for that section. The code I'm using is below. The problem I'm running into is that when I run the macro I'm getting an error saying "Compile error: Variable not defined" and when the debugger comes up, it's highlighting the "Sub MoveStuff()" line. Any help would be massively appreciated.

Option Explicit

Sub MoveStuff()
Dim ar As Variant, i As Integer

ar = [{"Day Staff","Section 1","Section 2","Section 3","Section 4","Section 5";Day Staff,Section 1,Section 2,Section 3,Section 4,Section 5}]
Application.ScreenUpdating = False

    For i = 1 To UBound(ar, 2)
      Sheets(ar(1, i)).UsedRange.Offset(1).ClearContents
        With Sheet1
            .AutoFilterMode = False
                With Range("E2", Range("E" & Rows.Count).End(xlUp))
                    .AutoFilter 1, ar(2, i)
                    .Offset(1).EntireRow.Copy
                     Sheets(ar(1, i)).Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteValues
                    ActiveSheet.AutoFilterMode = False
                    Sheets(ar(1, i)).Columns.AutoFit
                End With
        End With
    Next i
    
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "All done!", vbExclamation

End Sub