Retrieve data from one workbook to another based on a date

I hope someone can help me. Tried searching what I am missing for my code. But I guess, today is one of those slow days HAHA.
I have two workbooks, and I need to copy and paste data from wbLog.LogSh1 to wbCollate.CollateSh3 if it matches the date I input in the MsgBox.
So far my code only gets the first line of data. (I haven't even added the match date code since it stops after pasting 1 line).

Sub CommandButton25_Click()
    Dim wbCollate As Workbook
    Dim CollateSh3 As Worksheet
    Dim wbLog As Workbook
    Dim LogSh1 As Worksheet
    
    Set wbSource = ActiveWorkbook
        Set CollateSh3 = wbSource.Worksheets("Collation") 'where data will be pasted
    
    Set wbLog = Workbooks.Open("C:\Users\U0136975\Documents\ADC Log.xlsm")
        Set LogSh1 = wbTarget.Worksheets("Editor Log") 'where data will come from
    
    Dim EditorName As String
    Dim RequiredDate As Date
    Dim ClearPrompt As VbMsgBoxResult
    
    EditorName = CollateSh1.Range("A3")
    RequiredDate = CollateSh1.Range("K3")
    
    ClearPrompt = MsgBox("Ready to save?", vbQuestion + vbYesNo)
    Select Case ClearPrompt
        Case vbYes
            RequiredDate = InputBox("Please input date.")
            wbCollate.Activate
            CollateSh3.Select
            CollateSh3.Range("E2").Select
            ActiveCell.Value = RequiredDate
            
        wbCollate.Activate
        CollateSh3.Select
        CollateSh3.Range("A3").Select

            Dim y As Integer
            Dim r As Integer
            r = CollateSh3.Range("D" & Rows.Count).End(xlUp).Row + 1
            y = 3
            
            CollateSh3.Range("A" & r).Value = LogSh1.Range("D" & y).Value
            CollateSh3.Range("C" & r).Value = LogSh1.Range("F" & y).Value
            CollateSh3.Range("D" & r).Value = LogSh1.Range("G" & y).Value
            CollateSh3.Range("E" & r).Value = LogSh1.Range("H" & y).Value
            CollateSh3.Range("F" & r).Value = LogSh1.Range("I" & y).Value
            CollateSh3.Range("G" & r).Value = LogSh1.Range("J" & y).Value
            CollateSh3.Range("H" & r).Value = LogSh1.Range("K" & y).Value
            CollateSh3.Range("I" & r).Value = LogSh1.Range("L" & y).Value
            CollateSh3.Range("K" & r).Value = LogSh1.Range("N" & y).Value
            
            r = r + 1
            y = y + 1
            
        Case vbNo
            MsgBox "Please finalize.", vbInformation
        
        Exit Sub
    End Select
    
    SourceSh3.Select
    SourceSh3.Range("E2").Select

Let me know if you need anything else