Button to Copy Column Range with ActiveCell position, Losing formatting after 3rd column

I just plopped this back in the middle portion there and it's back to normal. Also, calculation speed seemed to increase back to normal again too.

    ActiveCell.Offset(-1, -1).Copy
    ActiveCell.Offset(-1, 0).Select
    ActiveSheet.Paste

Thanks again for your help AlphaFrog!!