Sub AddHeadings()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Date"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Region"
    Range("A1:B1").Select
    Selection.Font.Bold = True
End Sub