Auto populate sheets based on main spreadsheet

Sub test()
Dim Floor As Range, rdata As Range, unq As Range, cunq As Range, FloorNr As Variant
Application.ScreenUpdating = False
 Worksheets("sheet1").Activate
Set Floor = Range(Range("E2"), Range("E2").End(xlDown))
Set rdata = Range("A1").CurrentRegion
Set unq = Range("A1").End(xlDown).Offset(5, 0)
Floor.AdvancedFilter xlFilterCopy, , unq, True
Set unq = Range(unq.Offset(1, 0), Cells(Rows.Count, "A").End(xlUp))
For Each cunq In unq
FloorNr = cunq
rdata.AutoFilter field:=Range("E1").Column, Criteria1:=FloorNr
rdata.SpecialCells(xlCellTypeVisible).Copy

If Not sheetexists(FloorNr) Then
Worksheets.Add
ActiveSheet.Name = FloorNr
'GoTo copying
'Else
'GoTo copying
End If
copying:
With Worksheets(FloorNr)
.Range("A1").PasteSpecial
End With
Worksheets("Sheet1").Activate

ActiveSheet.AutoFilterMode = False
Next cunq
Range(Range("A1").End(xlDown).Offset(1, 0), Cells(Rows.Count, "A")).EntireRow.Delete

MsgBox "macro done"
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Function sheetexists(n As Variant) As Boolean
Dim ws As Worksheet
  sheetexists = False
  For Each ws In Worksheets
    If n = ws.Name Then
      sheetexists = True
      Exit Function
    End If
  Next ws
End Function

Sub undo()
Dim j As Integer
Application.DisplayAlerts = False
For j = Worksheets.Count To 1 Step -1
If Worksheets(j).Name <> "Sheet1" Then
Worksheets(j).Delete
End If
Next j
MsgBox "undone"
Application.DisplayAlerts = True
End Sub