problem clear header when using currentregion and need merging for two columns

[Maklil]

I have this code

Option Explicit
Sub CopyRangeFromSetFolder()

Dim desWS As Worksheet, wb As Workbook, lRow As Long
Dim wbNm As String, Fld As String

Application.ScreenUpdating = False

Set desWS = ThisWorkbook.Sheets("Sheet1")

desWS.Range("A2").CurrentRegion.ClearContents

Fld = ThisWorkbook.Path & "\"
    wbNm = Dir(Fld & "*.xls*", vbNormal)

    Do While wbNm <> ""
        If wbNm <> ThisWorkbook.Name Then
        
            With GetObject(Fld & wbNm)
                With .Sheets("MATCH")
                    lRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                    .Range("A2:E" & lRow).Copy
                    
                    desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
                End With
                .Close False
            End With
        End If

        wbNm = Dir()
    Loop

Application.ScreenUpdating = True
End Sub

I need two thing:
1- fixing problem clear the headers when using this line

desWS.Range("A2").CurrentRegion.ClearContents

should clear from row 2 not the headers
2- I need add procedure to merging numirc values in columns D,E based on column B (it means there are many dupliactes items in columnB should merging with summing values for column D,E.

 

[Maklil]

You can get a lot of the VBA code snippets needed for these pieces using the Macro Recorder.

actually I have not ever used Macro Recorder , in reality I used ready procedures from the internet . so I'm afraid my way is wrong when using Macro Recorder .
I will try based on your guiding .

 

[Joe4]

actually I have not ever used Macro Recorder , in reality I used ready procedures from the internet . so I'm afraid my way is wrong when using Macro Recorder .
I will try based on your guiding .

You just turn on the Macro Recorder, and record yourself performing the actions manually, then stop the recorder.
Then, view the code you just recorded.

This is very useful in getting code snippets to cut and paste into your code.
Sometimes you need to edit them slightly to make them more dynamic.
It is is great way to help you get started in writing VBA code,

Give it a shot, see how far you get, and post back here when you need help.