As Richard mentioned above, you have no code showing how you are going to loop through the mail items. You also need the 'Outlook.Items' and 'Outlook.MailItem' objetcs for it to work properly.
Normally I will not show pointers with as little effort shown as in yours, I do however have something similar written a while back and this should point you on the right direction, use the sub and then link it to your sheet -
Sub ReadEmailsFromOutlook()
Dim olApp As Outlook.Application
Dim olNs As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olMail As Outlook.MailItem
Dim i As Long
Dim lastRow As Long
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(olFolderInbox)
Set olItems = olFolder.Items.Restrict("[Subject] like '%keyword%' And [SentOn] >= #4/1/2024# And [SenderName] = 'sender@example.com'")
lastRow = Sheets("Sheet1").UsedRange.Rows.Count + 1
For i = 1 To olItems.Count
Set olMail = olItems.Item(i)
Sheets("Sheet1").Cells(lastRow, 1).Value = olMail.Subject
Sheets("Sheet1").Cells(lastRow, 2).Value = olMail.SenderName
Sheets("Sheet1").Cells(lastRow, 3).Value = olMail.SentOn
lastRow = lastRow + 1
Next i
Set olMail = Nothing
Set olItems = Nothing
Set olFolder = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub