
Assuming splitrow is required, the following result was found.
F11 (Alt+F11) Go to Insert > Module and paste the below code Sub SplitData() Dim WorkRng As Range Dim xRow As Range Dim SplitRow As Integer Dim xWs As Worksheet On Error Resume Next xTitleId = "JoelsTooCoolForExcel" Set WorkRng = Application.Selection...

bc1qf6elrdxc968h0k673l2djc9wrpazhqtxw8qqp4
0xb038962F3809b425D661EF5D22294Cf45E02FebF