Sub InsertHeader() Range("A1:C1").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .MergeCells = True End With End Sub