I created a spreadsheet to list deliverable elements and assign them to different departments within my company. The User enters the data and selects a department that is responsible for the element on the Data sheet. The data is then copied to another sheet in the workbook based on the selected department by way of a macro that someone wrote for me.
This has worked great until I started adding formulas to the data being copied. Is there a way to edit the following formula that will copy the row and only paste the values? I have tried a few things but my understanding of VBA is minimal at best.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh Is Sheet1 Or Sh Is Sheet3 Then Exit Sub
Rows("13:" & Rows.Count).Clear
For N = 13 To Sheet1.Cells(Rows.Count, 5).End(xlUp).Row
If Sheet1.Cells(N, 5) = Sh.Name Then
Sheet1.Rows(N).Copy Destination:=Sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow
End If
Next N
End Sub

I've been looking around the forums for the answer but I haven't found anything that works.
Thanks in advance!