format sheet info then export to text file

Is it possible to search a column for matching titles then extract the data from the other column cells
I have attached a excel file and hopefully final text file format where I have a group of titles each row would be a specific airdate and time for that title.
The title has multiple date and times but I want to combine them into one text file.
Sheet 1 is the list of titles and airdates
Sheet 2 is the final look then this would be exported to a text file
Sheet 3 is extra information to add to the final text file also.
I have captured a macro of the process but it is specific to one title and cells.
Thanks
Dale

Sub format4exportnew()
'
' format4exportnew Macro
'

'
    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("B1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "~"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "CLP"
    Range("A2").Select
    Sheets("Sheet3").Select
    Range("A1").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Range("A3").Select
    Sheets("Sheet1").Select
    Range("B1:D1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("B2:D2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("B7:D7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub