O recurso gravador de Macro é ótimo, mas o código fica uma sujeira!! ... Alguém pode fazer uma limpeza nele, por favor?? ... Obrigado!!!

Sub ajustar()
'
' ajustar Macro
'
' este código seleciona A2:K30, insere quebra de linhas, ajusta a altura da linha, e centraliza verticalmente os textos

'
    Range("A2:K30").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("2:30").Select
    Rows("2:30").EntireRow.AutoFit
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A2").Select
End Sub