SplitCell

Граждане, для удобства быстрого доступа, через хоткейс, написал себе деление ячейки на 2 строки. Делит на 2 строки, но если в этой строке уже разделил на 3 строки, т.е. применил макрос 2 раза - срабатывать он не хочет ("Делитель должен быть 3). Ну я, не будь дурак, конечно могу каждый раз менять на NumRows=3 или сделать 2 макроса, но это не ускоряет работу или, во втором случае, как-то перебор для простой задачи.  А теперь, внимание, вопрос! Что в чёрном ящике и как достичь-таки деления на 2 строки при уже совершённом делении на 3, если метод СплитЦеллс не даёт подсказок? (свойств у него только 3 - НамРоус, НамКоломнс и МерджБефорСплит)

Sub SplitCellOnTwoRows()
'Поделит ячейку, где установлен курсор на: число строк, число столбцов,
    Selection.Cells.Split NumRows:=2, NumColumns:=1, MergeBeforeSplit:=False
End Sub