Script de macro ou VBA para dividir efetivamente uma célula vazia

Question

Estou ciente de que no Excel você não pode dividir uma célula. No entanto, uma maneira de contornar isso seria inserir uma nova linha abaixo e mesclar verticalmente todos os vizinhos à esquerda e à direita (para muitas células)

Eu quero um atalho de teclado para fazer isso. Então eu gravei uma macro para fazer isso, mas o problema é que a macro não leva em conta em qual posição meu cursor está, e sempre vai para o mesmo ponto, o que não é o que eu quero. Eu quero pressionar as teclas e a divisão acontece na célula destacada.

SubMacro5()''Macro5Macro''KeyboardShortcut:Ctrl+s'Range("A2:A3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("C2:C3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.AutoFill Destination:=Range("C2:FP3"), Type:=xlFillDefault
    Range("C2:FP3").Select
    Range("B2").Select
End Sub