使用从.Find方法生成的范围定义范围

Question

我有一个工作表，其中有多个行具有重复的字符串数据，这些数据都已排序，因此它们是相邻的。我正在尝试制作一些VBA，它可以根据我称为“索引”的工作表上的列来定义每个匹配字符串数据块的范围。到目前为止，这就是我所拥有的。

Sub find_string_criteria_range()

Dim find_value As String
Dim start_range As Range
Dim stop_range As Range
Dim var_range As Range
Dim range_count As Integer

range_count = Worksheets("Index").Range("B2").End(xlDown).Row

    For x = 2 To range_count

        find_value = Worksheets("index").Cells(x, 2).Value

        Set start_range = Worksheets("SAS DATA").Range("A:A").Find(find_value, searchdirection:=xlNext, lookat:=xlWhole)
        Set stop_range = Worksheets("SAS DATA").Range("A:A").Find(find_value, searchdirection:=xlPrevious, lookat:=xlWhole)
        var_range = Worksheets("SAS DATA").Range("start_range:stop_range")

    Next x

End Sub

当我运行第三行到最后一行代码时，我收到“应用程序定义或对象定义错误”错误，该行尝试将var_range设置为等于组合的start_range和stop_range范围。

我不确定如何将两个.Find输出变为单个范围。

非常感谢任何帮助。