Split Rows by count and paste it in a seperate workbook using VBA. Getting Syntax Error ; missing operator

Question

Sub SplitData()
    Dim WorkRng As Range
    Dim xRow As Range
    Dim SplitRow As Integer
    Dim xWs As Worksheet
    On Error Resume Next
    Set WorkRng = Applicatio