Как динамически искать цели для нескольких строк в Excel VBA

Question

Я пытаюсь создать макрос в Excel VBA, который будет искать цели для нескольких строк.Столбец B - это мое «Заданное значение», Столбец C - это изменяемое значение, а Столбец D - мое «Значение цели».Ниже мой текущий код.Я новичок в VBA, так что спасибо вам за любую помощь и ваше терпение!

Sub dynamicgoalseek()

Dim i As Integer   ' i used for loop
Dim sht As Worksheet
Dim LastRow As Long
Application.ScreenUpdating = False
Set sht = ThisWorkbook.Worksheets(Sheet1.Name)

' used to count rows in column B
  LastRow = sht.Cells(sht.rows.Count, "B").End(xlUp).Row

' start of loop
For i = 1 To LastRow


'set B to value in D by changing C
    Range("b", i).GoalSeek, _
    Goal:=Range("d", i), _
    ChangingCell:=Range("c", i)


' end loop
Next i
Application.ScreenUpdating = True
End Sub

Редактировать: я получаю ошибку приложения или объекта при запуске.