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",...