For crow = 1 To 100

    Value = Worksheets("Movies_categories").Range("A" & crow).Value
    cat_final = Worksheets("Movies_categories").Range("B" & crow).Value

    If Value = "y" Or Value = "Y" Then

      'Loop for reading the data from tabsheet- Movies

      For crowss = 5 To 3000
        movies_cat1 = Worksheets("Movies").Range("B" & crowss).Value
        movies_language = Worksheets("Movies").Range("C" & crowss).Value

        If movies_language = "English" Then

          Temp = Split(movies_cat, ",")  'run time Error:10  occurs here..

          For Each boken_c In Temp
            flag = 0
            boken_c = Trim(boken_c)

            If RTrim(LTrim(boken_c)) = LTrim(RTrim(cat_final)) Then
              flag = 1
              GoTo Line4:
            End If
          Next boken_c
        End If
      Next crowss
    End If
Line4:    Next crow

For crow = 1 To 100

  Value = Worksheets("Movies_categories").Range("A" & crow).Value
  cat_final = Worksheets("Movies_categories").Range("B" & crow).Value

  If Value = "y" Or Value = "Y" Then

    'Loop for reading the data from tabsheet- Movies

    For crowss = 5 To 3000
      movies_cat1 = Worksheets("Movies").Range("B" & crowss).Value
      movies_language = Worksheets("Movies").Range("C" & crowss).Value

      If movies_language = "English" Then

        Temp = Split(movies_cat, ",")  'run time Error:10  occurs here..

        For Each boken_c In Temp
          flag = 0
          boken_c = Trim(boken_c)

          If RTrim(LTrim(boken_c)) = LTrim(RTrim(cat_final)) Then
            flag = 1
            **Exit For**
          End If
          **If flag = 1 Then Exit For**
        Next boken_c
      End If
      **If flag = 1 Then Exit For**
    Next crowss
  End If
Next crow

Call Sub1(gArray(3))
debug.print gArray(3)
...
Sub Sub1(i as integer)
Redim gArray(0)
End sub

Sub Sub1(ByVal i as integer)

If StrComp(Mid(s, 1, lE), txtE, vbBinaryCompare) = 0 Then
            For i = iMdl To 1 Step -1
                With blks(i)
                    If .lnEnd = 0 Then   ' ".lnEnd" is a member of blks(i)
                        .lnEnd = ln
                        GoTo NXT
                    End If
                End With
            Next
            errBegWith = errBegWith & ln & ", "
NXT:
        End If
    '...
    ReDim Preserve blks(iMdl)

If StrComp(Mid(s, 1, lE), txtE, vbBinaryCompare) = 0 Then
            For i = iMdl To 1 Step -1
                If blks(i).lnEnd = 0 Then
                    blks(i).lnEnd = ln
                    GoTo NXT
                End If
            Next
            errBegWith = errBegWith & ln & ", "
NXT:
        End If
    '...
    ReDim Preserve blks(iMdl)