Copying Columns To New Workbook And Add Headers

I am trying to create a macro that will create a new workbook, copy certain columns to the new workbook and add new headersEaxample is:

In workbook 1 copy columns A To Workbook 2 Coumn D
BTo Workbook 2 Coumn F
CTo Workbook 2 Coumn O
Also add headings to the Columns in workbook 2
D=Name
F=Amount
O=Date
And last populate some columns with text all the way down tothe last row that contains text in workbook 2. A = Y
B= 5
C= Pass