Выбор диапазона, который находится от одной ячейки до найденного значения?

Question

Я делаю некоторые искровые линии, и я пытаюсь ссылаться на диапазон для исходных данных. Проблема в том, что Range добавляется каждый месяц. Мне нужно, чтобы иметь возможность использовать диапазон от известной первой клетки до тех пор, пока не найдет value.Offset (0, -1)

Dif wb As Workbook 
Dif ws As Worksheet 

    Set wb = Workbooks("HardDrive location") 
    Set ws = wb.Worksheets("Sheet1") 

wb.ws.Range.Rows(4).Cells.Find("XXX").Offset(0, 1).Select 

Selection.SparklineGroups.Add Type:=xlSparkLine, SourceData:= Range("D4", wb.ws.Range.Rows(4).Find("XXX").Offset(0,-1)) 

'Other Parameters are below, but there aren't any problems past this point' 

Не совсем уверен, как получить, чтобы работать. Любая помощь будет оценена по достоинству.

Answer 1

Редакцией:.

Sub Test() 

Dim wb As Workbook 
Dim ws As Worksheet 
Dim rng As Range 

Set wb = ActiveWorkbook 
Set ws = wb.Worksheets("Sheet1") 
Set rng = ws.Rows(4).Cells.Find("XXX").Offset(0, -1) 

Range(rng.Offset(0, 1).Address).SparklineGroups.Add Type:=xlSparkLine, SourceData:=Range("D4" & ":" & rng.Address).Address 

End Sub