빈 셀을 효과적으로 분할하는 매크로 또는 VBA 스크립트

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