is there a way to make sure my macro doesn't duplicate data

Suzanne25811 

Please give this a try and see if this works for you...

Sub CopyRows()
    Dim wsSource    As Worksheet
    Dim wsDest      As Worksheet
    Dim shArr       As Variant
    Dim sh          As Variant
    Dim FinalRow    As Long
    Dim NextRow     As Long
    
    Application.ScreenUpdating = False
    
    Set wsSource = ThisWorkbook.Worksheets("MORSE Item Sales Analysis")
    wsSource.AutoFilterMode = False
    FinalRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
    
    shArr = Array("FORN", "GRLK", "NEST", "NWST", "PLNS")
    
    With wsSource.Range("A1").CurrentRegion
        For Each sh In shArr
            .AutoFilter field:=29, Criteria1:=sh
            If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
                Set wsDest = ThisWorkbook.Worksheets(sh)
                wsDest.Range("A1").CurrentRegion.Offset(1).ClearContents
                wsSource.Range("A2:AB" & FinalRow).SpecialCells(xlCellTypeVisible).Copy wsDest.Range("A2")
            End If
        Next sh
    End With
    wsSource.AutoFilterMode = False    
    Application.ScreenUpdating = True    
    MsgBox "Task Completed!", vbInformation
End Sub