Макрос или скрипт VBA для эффективного разделения пустой ячейки

Question

Я знаю, что в Excel вы не можете разделить ячейку. Тем не менее, обходным путем было бы вставить новую строку внизу и объединить по вертикали всех соседей слева и справа (для очень многих ячеек)

Я хочу, чтобы сочетание клавиш сделало это. Поэтому я записал макрос, чтобы сделать это, но проблема в том, что макрос не учитывает, в каком положении находится мой курсор, и всегда идет в одно и то же место, а это не то, чего я хочу. Я хочу нажать клавиши, и разделение происходит прямо в выделенной ячейке.

Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: 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