Sub Update_BFU()
Dim Concatenate_fields As Range
Application.ScreenUpdating = False
Cells(1, 54).Value = "EXP_Type"
Cells(1, 55).Value = "EXP_Month"
Cells(1, 56).Value = "Concatenate_fields"
Cells(2, 54).Value = "=IF(LEFT(RC[-52],1)=""E"",""international"",""local"")"
Cells(2, 54).Select
Selection.AutoFill Destination:=Range("BB2:BB" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault
With Range("BC2:BC" & Cells(Rows.Count, "BC").End(xlUp).Row)
.NumberFormat = "General"
.FormulaR1C1 = "=TEXT(RC[-52],""mm"")& ""/"" &YEAR(RC[-52])"
.NumberFormat = "@"
.Value = .Value
End With
Cells(2, 56).Value = "=CONCATENATE(RC[-42],RC[-44],RC[-14],RC[-1],RC[-2])"
Cells(2, 56).Select
Selection.AutoFill Destination:=Range("BD2:BD" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Columns("BD:BD").Select
ActiveWorkbook.Names.Add Name:="Concatenate_fields", RefersToR1C1:="='3.ExportSAGA'!C56"
Application.ScreenUpdating = True
End Sub