Maybe:
Sub extract_specifics()    Dim olapp As Outlook.Application
    Dim olmail As Outlook.MailItem
    Dim olns As Outlook.Namespace
    Dim olfolder As Outlook.Folder
    Dim sName As String
    
    Set olapp = New Outlook.Application
    Set olmail = olapp.CreateItem(olMailItem)
    Set olns = olapp.GetNamespace("MAPI")
    Set olfolder = olns.GetDefaultFolder(olFolderInbox)
    i = 1
    
    For Each olmail In olfolder.Items
        sName = olmail.SenderName
        If sName = Range("I3").Value Then
            i = i + 1
            Cells(i, 1) = sName
            Cells(i, 2) = olmail.ReceivedTime
            Cells(i, 3) = olmail.Importance
        End If
    Next olmail
End Sub
Range("I3") is the name of the sender to be included.

Hope this helps