VBA Inserir informação a partir de um critério

[MarceloAdriano]

Olá
Gostaria de solucionar uma questão no diário:
O caso é o seguinte: se a situação do aluno for Desistente ou Matricula Encerrada ou Remanejado; então as colunas das notas (campos a partir (C14:F14) terá que exibir a informação contida nas células (situação do Aluno) a partir da v14, abaixo, para tanto, terá que ser aplicada a formatação “Centralizar Seleção” para que os campos sejam expandidos nos campos das notas do aluno. Caso contrário, se não constar (no campo situação do aluno) deixar como está, ou seja, aparecendo as notas dos alunos.

Reforçando: Se o campo Situação do aluno estiver em branco - não seja executada a macro, caso contrário, contendo informação preencha os campos substituindo as notas pela informação contida no campo Situação do Aluno.

Desculpe-me, mas explicar com palavras, é complicado e espero ter feito entender o que eu desejo.
Segue as figuras ilustrativas bem como o exemplo do diário que estou trabalhando
Grato,
Marcelo Adriano
Fiz uma macro relativa (Crtl+k) que resolveu em partes, mas gostaria de aprimorar.
Macro relativa criada:
Sub Situação_Aluno()
' Situação_Aluno Macro
' Verifica a situação do aluno informando a mesma no Diário.
' Atalho do teclado: Ctrl+q
ActiveCell.Range("A1:D1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=IF(RC[19]<>"""",RC[19],"""")"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

[MarceloAdriano]

Outra imagem ilustrativa do Diário