RegEx pattern

I am using like this

Sub RemoveRegEx_n()
Dim x
Dim R As Object
Dim ws As Worksheet
Dim rng1 As Range
Dim lngRow As Long

     Set R = CreateObject("vbscript.regexp")
     Set ws = ThisWorkbook.Sheets("XXX")
     With R
       .Global = True
       .Pattern = (,\sOther\(please specify\))
       .ignorecase = True
     End With
     Application.ScreenUpdating = False
     Set rng1 = ws.Range("A1:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
     x = rng1.Value2
     For lngRow = 1 To UBound(x, 1)
       x(lngRow, 1) = R.Replace(x(lngRow, 1), vbNullString)
     Next lngRow
     rng1.Value2 = x
     Application.ScreenUpdating = True
End Sub