Assuming xrow is required, the following result was found.
down ALT and press 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 =...