Copy data of last five days of previous month to another worksheet

[Vincent88]

Hi Guys, I want to copy value of the last five days of the month July in a worksheet named 202107 (2021 July) to another worksheet named 202108 (August). Both sheets have identical calendar range from column C to AL .
The destination range of those 5 days in sheet 202108 is always in C1 to G but that period of days in the previous month sheet 202107 is in last part of the range. I need the code to search the position of those days then copy the data to sheet 202108. Please help to modify mine to make it works. Thanks.

 

[Vincent88]

my code

Sub Copy_Click8()

Dim startdate As Date, enddate As Date
Dim rng As Range, destRow As Long
Dim shtSrc As Worksheet, shtDest As Worksheet
Dim c As Range

Set shtSrc = Sheets("202107")      'Set Previous Month Sheet as source
Set shtDest = Sheets("202108")     'Set New Month Sheet as destination

Dim lastRowSrc As Long
    lastRowSrc = shtSrc.Cells(Rows.Count, "A").End(xlUp).Row

'Set Range of dates to start

startdate = CDate(ThisWorkbook.Sheets("202108").Range("C1"))  'Use the 5th last date of previous month as start date
enddate = CDate(ThisWorkbook.Sheets("202108").Range("G1"))    'Use the last day of previous month as end date

' Set range to search for dates (last 5 days of previous month)
Set rng = Application.Intersect(shtSrc.Range("H1:AL" & lastRowSrc), shtSrc.UsedRange)


'Look for matching dates in columns H1 to AL-last row

For Each c In rng.Cells
Dim lastRow As Long
 
    lastRow = shtDest.Range("A3").End(xlDown).Row
    
   If (c.Value = startdate And c.Offset(0, 5).Value = enddate) Then
        c.Offset(3, 0).Resize(lastRowSrc, 5).Copy _
        shtDest.Cells(3, 3).Resize(lastRow, 5)   
    End If
Next

End Sub