VBA Macro to copy row values (not formulas) to another sheet based on cell data

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!

Change

Please Login or Register  to view this content.

Fantastic! Thank you!

Thank you for the answer but is there a way to clear the selection as part of the code? It works but when I switch back to the data sheet, the copied rows are still selected for copying.
Thanks

Please Login or Register  to view this content.

Thank you again!