
Assuming xtitleid is required, the following result was found.
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 Set WorkRng = Application.InputBox("Specify Data Range",...

bc1qf6elrdxc968h0k673l2djc9wrpazhqtxw8qqp4
0xb038962F3809b425D661EF5D22294Cf45E02FebF