Copying RANGE to next blank row of a different sheet each time data generated

Hello Everyone, quite new to VBA and it has taken me quite a while to get to this point.

First worksheet shows button 'Get Outlook Data' when clicked you choose an Outlook folder then the data is posted to the 'Outlook Results' sheet.

Each time the macro runs it clears the data from 'Outlook Results' this is required. The data is currently in columns A - K (this will no doubt be extended).

However, each time the [GetMailInfo] is run (on a button) I need to be able to paste the data to the next blank row on the 'Results History' sheet each time the macro runs.

I've attached a sample workbook.

I used the code found on this forum (noted below) but no matter where I placed it, it wasn't copying to the 'Results History' sheet. Would be great to run this automatically after [GetMailInfo].

My question, where and how do I get the macro below to automatically run after the 'GetMailInfo' macro is run. Help really appreciated thank you.

Sub CopyData()

    Dim NextRow As Long

    With Sheets("Outlook Results")
        Sheets("Outlook Results").Range("A2").CurrentRegion.Copy

    End With
    
    NextRow = Sheets("Results History").Range("A2" & Rows.Count).End(xlUp).Row + 1

    Sheets("Results History").Range("A2" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

End Sub

Please any help guidance whatsoever for this is greatly appreciated!!

Regards,
Cozza22