Need VBA code to fill header values and drag formula till end of last row on target column

Hi experts

i have set of data need to find brand on F:F values

if column values end with (Y) or (Y1) its NT-BDEALER
rest of all data Non NT-BDEALER

and last 3 columns(V,W,X) from U col,Need to fill with V= Date,W=Name,X=ISIN Code. and fill formula down till end of row.
V col

Formula:

=TODAY()-5

W col

Formula:

=VLOOKUP(J2,vlookup!A:B,2,0)

x col

Formula:

=E2

find the attachment expected sheet is my requirement