Not sure if VBA question or excel expert question

Option Explicit

Sub CopyOwnTab()
'ClrRng     '<--- uncomment this term if you want the sheets to display only the current data from Sheet1
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
On Error Resume Next
Lastrow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Dim ans As String
    For i = 2 To Lastrow
    ans = Sheets("Sheet1").Cells(i, 1).Value
        Sheets("Sheet1").Cells(i, 1).EntireRow.Copy Sheets(ans).Rows(Sheets(ans).Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Next
Sheets("Sheet1").Range("A1").Select
Application.ScreenUpdating = True
End Sub




Sub ClrRng()


Dim rs As Worksheet


For Each rs In ThisWorkbook.Worksheets
   If rs.Name <> "Sheet1" Then
        rs.Range("A2:N100").ClearContents   '<-- Edit range to clear here
   End If
Next rs


End Sub