Executing an Internal Data Send Definition

You must add a method to the macro to execute an Internal Data Send Definition.
Add this method to your macro:
Sub DataSend() 
QAAMacro.DataSend "InternalDefinitionName" 
End Sub

This runs the Internal Data Send Definitions within that workbook. If you have more than one, then you can add multiple steps.