Copy/Paste Filtered Results Less Header Row

Trying to paste filtered results except header row. My code below pastes the header row for "Details" 2x. I tried altering the row to row 2, but that caused incorrect results to be returned.

Detail - Sales
First I filter the data range for " Total Sales"
Paste the results with header row to wsDetails

Details - Details
Then filter the data again for "N"
I would like to paste these results to wsDetails w/o the header

Option Explicit
Sub comp_pl_ytd_Totals()
Dim wbBook As Workbook
Dim wsData As Worksheet
Dim wsTotals As Worksheet
Dim wsDetails As Worksheet
Dim wsExtract As Worksheet
Dim rngData As Range
Dim rngCrit As Range
Dim rngDest As Range
Dim arrCrit
Dim myRange As Range
Dim C As Range
Dim lngrows As Long
Dim strFormula As String
Dim rngCase As Range
With Application
. ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With................