Amend copy and paste range on current macro

Hi Experts

I have the following macro which takes the files from the file path as shown in the vba code and copies and paste the data into the master file (both worksheets) in the two different workbooks have the same name...

I want to amend code so it opens first WBk finds wksht in master file (which is always open) and pastes the data into the following range of cell
1. C23:AA23
2. C25:AA25
3. C30:AA30

The copy and paste range is the same on both wksht...

Close workbook find next WBk and repeat...

Point to mention all workbooks have different names...but the sheets they paste the data into are the say...


Sub Conso()
 
    Dim wbDst As Workbook
    Dim wbSrc As Workbook
    Dim wsSrc As Worksheet
    Dim wsDst As Worksheet
    Dim rngDst As Range
    Dim strFilename As String
    Dim StrPath As String
   
    Application.DisplayAlerts = False
   
           'Update File Path To Suite Requirments - Test Path Only
           
           StrPath = "C:\OutlookAttachments\CMU Attachments\"
           
           Set wbDst = ThisWorkbook
           
           Set wsDst = wbDst.Worksheets("ABC")
               
           Set rngDst = wsDst.Range("M17")
               
                strFilename = Dir(StrPath & "*.xlsm")
               
                While strFilename <> ""
               
                If strFilename <> wbDst.Name Then
               
                    Set wbSrc = Workbooks.Open(StrPath & strFilename, UpdateLinks:=3)
                   
                    Set wsSrc = wbSrc.Worksheets("ABC")
                   
                    With wsSrc
                        .Range("M17", .Range("M" & .Rows.Count).End(xlUp).Offset(0, 31)).Copy rngDst
                    End With
                   
                    Set rngDst = wsDst.Range("M" & Rows.Count).End(xlUp).Offset(0)
                   
                wbSrc.Close
                   
                    'wsDst.Range("M17:AR17").Delete xlShiftUp
              End If
           
            strFilename = Dir()
           
     Wend
 
End Sub