Макрос для подбора параметра (Данные - Анализ что-если) - VBA

Формулировка задачи:

Здравствуйте! Возможно ли создать макрос, выполняющий подбор значений? Эту операцию надо проделывать многократно, от того ручками долго. Он категорически не хочет, у меня по крайней мере, записывать значение из необходимой ячейки в буфер обмена, а затем вставлять его в искомое значение. Пробовал создать объект (Dim MyDataObj As New DataObject) затем присвоить ему значение (MyDataObj.SetText (H41)), затем вставить его (MyDataObj.PutInClipboard). Но когда в строке Range("C49").GoalSeek Goal:=1473, ChangingCell:=Range("C42") вместо числа вставляю этот объект, получаю ошибку.

Sub T1()
Range("G41").Select
Selection.Copy
Range("H41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1473"
Range("H41").Select
Selection.ClearContents
Range("C49").Select
Range("C49").GoalSeek Goal:=1473, ChangingCell:=Range("C42")
End Sub

Прошу простить, если что не так оформлено, я во всём этом новичок. Заранее благодарю)

Решение задачи: «Макрос для подбора параметра (Данные - Анализ что-если)»

textual
                            Листинг программы 
                        

                            Sub T1()
    X = Range("G41")
    Range("C49").GoalSeek Goal:=X, ChangingCell:=Range("C42")
End Sub
                        