Cleaning up this code

I would like to simplify or clean-up this code so that it runs more efficiently:

Sub formatDatesandAlignment()
'
' formatDatesandAlignment Macro
'

'
Application.ScreenUpdating = False
     
    Range("C:C,G:G,O:O").Select
    Range("O1").Activate
    Selection.NumberFormat = "d/m/yyyy"
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("J:J").Select
    Selection.NumberFormat = "mmm/yy"
    Range("A1").Select
Application.ScreenUpdating = True
End Sub

Thanks.