Help! Trying to copy rows of data via macro

Sub test()
Dim rng As Range, rng1 As Range, rng2 As Range, c2 As Range
Dim x As Integer, cfind As Range, add As String, dest As Range

With Worksheets("sheet1")
Set rng = Range(.Range("c1"), .Range("c1").End(xlDown))
Set rng1 = .Range("a1").End(xlDown).Offset(5, 0)
rng.AdvancedFilter action:=xlFilterCopy, copytorange:=rng1, unique:=True
Set rng2 = Range(rng1.Offset(1, 0), rng1.End(xlDown))
For Each c2 In rng2
x = c2.Value
If Not SheetExists("class" & x) Then
    
  Worksheets.add
ActiveSheet.Name = "class" & x
ActiveSheet.Move after:=Sheets(Sheets.Count)
    
    
Else
Worksheets("class" & x).Cells.Clear
    GoTo line2
End If


line2:
Set cfind = rng.Cells.Find(what:=x, lookat:=xlWhole)
If cfind Is Nothing Then GoTo line1
add = cfind.Address
Range(.Cells(cfind.Row, 1), .Cells(cfind.Row, cfind.Column)).Copy
With Worksheets("class" & x)
   
    Set dest = .Cells(Rows.Count, "a").End(xlUp).Offset(1, 0)
    dest.PasteSpecial
  End With
Do
Set cfind = rng.Cells.FindNext(cfind)
If cfind Is Nothing Then GoTo line1
If cfind.Address = add Then GoTo line1
Range(.Cells(cfind.Row, 1), .Cells(cfind.Row, cfind.Column)).Copy
With Worksheets("class" & x)
Set dest = .Cells(Rows.Count, "a").End(xlUp).Offset(1, 0)
dest.PasteSpecial
End With

Loop
line1:
Next c2
End With


End Sub
Function SheetExists(SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error GoTo NoSuchSheet
    If Len(Sheets(SheetName).Name) > 0 Then
        SheetExists = True
        Exit Function
    End If
NoSuchSheet:
End Function