After you have exported it, you can reopen the workbook and do it using this. Save this function into a standard module (not form, report or class module):
Code:
Function InsertTitle(strTitle As String, strFileAndPath As String)
Dim objXL As Object
Dim xlWB As Object
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True ' you can comment this out later when it is working
Set xlWB = objXL.Workbooks.Open(strFileAndPath)
xlWB.Worksheets(1).Range("A1").EntireRow.Insert
xlWB.Worksheets(1).Range("A1").Value strTitle
xlWB.Save
xlWB.Close
objXL.UserControl = True ' comment this out too if you aren't leaving it visible and then
' objXL.Quit ' uncomment this line if you comment out the visible and such
Set objXL = Nothing
End Function
But the workbook would need to not be open from the TransferSpreadsheet for this.