Using Named Ranges to Transfer data from two worksheets

Attached is a sample of the problem that I'm working on. I'm trying to create a dashboard of my inventory system. The dashboard will display Sales for the day (category 1), Purchases that need to be made (Category 2), Purchase Orders that are to be expected (Cateogry 3), and Work in Process (Category 4). For this question, I'm only going to focus on category 2.

I'm trying to transfer all the data from Worksheets("Purchasing") to the Dashboard under category 2. I'm trying to use named ranges to do this, because the range of each category will fluctuate as items are added/deleted. This is what I have so far:

Option Explicit

Sub purchPull()

Dim Dashboard As Worksheet
Dim Purchasing As Worksheet
Dim PM As Range, D As Range, Rng As Range
Dim purchName As Range

Set Purchasing = Worksheets("Purchasing")
Set Dashboard = Worksheets("Dashboard")


' Go through each Item in Purchasing and check to see if it's anywhere within the named range "PurchaseStart"
' In this case it should be "A8:A9" - as there is nothing in the dasboard yet
For Each PM In Purchasing.Range(Purchasing.Cells(1, 1), Purchasing.Cells(Purchasing.Rows.Count, 1).End(xlUp))
    With Dashboard.Range("PurchaseStart", Dashboard.Cells(Dashboard.Rows.Count, 1))
        Set Rng = .Find(What:=PM.Offset(0, 1), _
            After:=.Cells(.Cells.Count), _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
        If Not Rng Is Nothing Then
            ' Do nothing, as we don't want duplicates
        Else
            ' From the start of the named range, transfer data over - THIS IS THE PROBLEM AREA
            With Dashboard.Range("PurchaseStart", Dashboard.Cells(.Rows.Count, 1)).End(xlUp)
                .Offset(1, 1) = PM.Offset(0, 0) ' Order Number
                .Offset(1, 2) = PM.Offset(0, 1) ' SKU
                .Offset(1, 3) = PM.Offset(0, 3) ' Qty
                .Offset(1, 4) = PM.Offset(0, 4) ' Date
            End With
        End If
    End With
Next

End Sub

For some reason the Range("PurchaseStart"), which is Cell $A$8, starts at A:1. I don't know how to only select the named range that I'm looking for. I added "End #" statements at the end of each row to signify a cutoff and hope to trick excel into only selecting a the range of the particular category. Any help would be greatly appreciated.

I figured it out. If anyone can think of a better way, I'd love to hear it. Thanks for your help everyone!

Option Explicit

Sub purchPull()

Dim Dashboard As Worksheet
Dim Purchasing As Worksheet
Dim PM As Range, D As Range, Rng As Range
Dim purchName As Range
Dim lastRow As Long
Dim firstRow As Long

Set Purchasing = Worksheets("Purchasing")
Set Dashboard = Worksheets("Dashboard")

' first row of named range "PurchaseStart"
firstRow = Dashboard.Range("PurchaseStart").Row + Dashboard.Range("PurchaseStart").Rows.Count



' Go through each Item in Purchasing and check to see if it's anywhere within the named range "PurchaseStart"
With Purchasing
    For Each PM In Purchasing.Range(Purchasing.Cells(2, 1), Purchasing.Cells(Purchasing.Rows.Count, 1).End(xlUp))
        With Dashboard.Range("PurchaseStart", Dashboard.Cells(Dashboard.Rows.Count, 1))
            Set Rng = .Find(What:=PM.Offset(0, 0), _
                After:=.Cells(.Cells.Count), _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False)
            If Not Rng Is Nothing Then
                ' Do nothing, as we don't want duplicates
            Else      
                ' Identify the last row within the named range "PurchaseStart"
                lastRow = Dashboard.Range("PurchaseStart").Cells(1, 1).End(xlDown).Row
                ' Transfer the data over
                With Dashboard.Cells(lastRow, 1).End(xlUp)
                    .Offset(1, 0).EntireRow.Insert
                    .Offset(1, 0) = PM.Offset(0, 0)  ' Order Number
                    .Offset(1, 1) = PM.Offset(0, 1) ' SKU
                    .Offset(1, 2) = PM.Offset(0, 2) ' Qty
                    .Offset(1, 3) = PM.Offset(0, 3) ' Date
                End With
            End If
        End With
    Next
End With

End Sub

Thank you to both of you. Winon, I'm surprised i never thought of putting them horizontally. However, I figured out how to do it. But I'm still stuck on one part of this problem and that's when it comes to making sure duplicates aren't passed to the Dashboard. Right now, it's just overwriting the first row (.Offset(1, 0)). I would like it to go to the last available cell instead.

I was thinking I could just delete the entire range and re-calculate, but that seems unecessary. Here's the code I have:

Option Explicit

Sub purchPull()

Dim Dashboard As Worksheet
Dim Purchasing As Worksheet
Dim PM As Range, D As Range, Rng As Range
Dim purchName As Range
Dim lastRow As Long
Dim firstRow As Long

Set Purchasing = Worksheets("Purchasing")
Set Dashboard = Worksheets("Dashboard")

firstRow = Dashboard.Range("PurchaseStart").Row + Dashboard.Range("PurchaseStart").Rows.Count

lastRow = Dashboard.Range("PurchaseStart").Cells(1, 1).End(xlDown).Row


    MsgBox lastRow
    MsgBox firstRow

' Go through each Item in Purchasing and check to see if it's anywhere within the named range "PurchaseStart"
' In this case it should be "A8:A9" - as there is nothing in the dasboard yet
For Each PM In Purchasing.Range(Purchasing.Cells(2, 1), Purchasing.Cells(Purchasing.Rows.Count, 1).End(xlUp))
    With Dashboard.Range("PurchaseStart", Dashboard.Cells(Dashboard.Rows.Count, 1))
        Set Rng = .Find(What:=PM.Offset(0, 0), _
            After:=.Cells(.Cells.Count), _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
        If Not Rng Is Nothing Then
            ' Do nothing, as we don't want duplicates
        Else
            ' From the start of the named range, transfer data over
      ' Rows(firstRow & ":" & lastRow).EntireRow.Delete

            With Dashboard.Cells(lastRow, 1).End(xlUp)
                .Offset(1, 0) = PM.Offset(0, 0) ' Order Number
                .Offset(1, 1) = PM.Offset(0, 1) ' SKU
                .Offset(1, 2) = PM.Offset(0, 2) ' Qty
                .Offset(1, 3) = PM.Offset(0, 3) ' Date
                .Offset(2, 1).EntireRow.Insert
            End With
        End If
    End With
Next

End Sub