Add snipped to paste report in descending order

Hi,

I have a code that extract matched rows and copy to another sheet, But it copy on next empty rows But is copying on Ascending Order (bottom of last records).

I would like to make the change the copy/paste in descending order ( on top of last records)

The snniped that i need to add in the code is

 Range.Sort Key1:=Range("A2"), Order1:=xlDescending

This is the original threat:
https://www.excelforum.com/excel-pro...e-matches.html

and this is the original code

 Sub Treat()
Dim RefRg As Range, R As Range
Dim WkRg As Range, W As Range
Dim HRg  As Range
Dim DataRg As Range
Const WS1Name As String = "Sheet1"
Const WS2Name As String = "Test"

    Set RefRg = Sheets(WS1Name).Range("I14:M14")
    Set HRg = Sheets(WS1Name).Range("D2:P2")
    Set WkRg = Sheets(WS1Name).Range("D3:D12")
    For Each R In RefRg
        For Each W In WkRg
            If (R = W) Then
                HRg.Copy Destination:=Sheets(WS2Name).Cells(Rows.Count, "B") '.End(3)(2)
                W.Resize(1, HRg.Count).Copy Destination:=Sheets(WS2Name).Cells(Rows.Count, "B").End(3)(2)
            End If
        Next W
    Next R
    Application.CutCopyMode = False
    MsgBox ("Job Done")
End Sub

Thank you!!

Andy

Hi KebellaH,

Sorry to bother, but The Code is replacing previous Data, also is copying the header in "Test" tab on last row 1048576
What I need is to Copy on Top (Above of previous) Data and so on...

I realized that the matched numbers are pasting not in the same way, so I added a column with a Date in order to sort from.

Note: please i upload the latest sample wb with the code and the way it's displaying the output.


Thank you So much!!

Thanks Kebellah !!