Ez a két sor üti egymást:

        Range(Cells(sor + 1, l), Cells(sor + 1, l + 1)).HorizontalAlignment = xlCenterAcrossSelection
        Cells(sor + 1, l).HorizontalAlignment = xlCenter

A másodikkal felülírod az első formázást. Vedd ki, aztán szerintem jó lesz.