在VBA中编写索引和LinEst公式可以使用WorksheetFunction对象来调用Excel的内置函数。下面是一个示例代码：

Sub CalculateIndexAndLinest()
    Dim ws As Worksheet
    Dim rngX As Range
    Dim rngY As Range
    Dim rngResult As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置X值范围（假设在A1:A10）
    Set rngX = ws.Range("A1:A10")
    
    ' 设置Y值范围（假设在B1:B10）
    Set rngY = ws.Range("B1:B10")
    
    ' 设置结果范围（假设从C1开始）
    Set rngResult = ws.Range("C1")
    
    ' 使用索引公式计算
    rngResult.Formula = WorksheetFunction.Index(rngY, WorksheetFunction.Match(1, rngX, 0))
    
    ' 使用LinEst公式计算
    rngResult.Offset(1).FormulaArray = WorksheetFunction.LinEst(rngY, rngX)
End Sub

在上面的代码中，我们首先通过Set关键字设置了工作表、X值范围、Y值范围和结果范围。然后，我们使用WorksheetFunction对象的Index方法和Match方法来计算索引公式的值，并将结果赋值给结果范围。接下来，我们使用LinEst方法来计算LinEst公式的值，并将结果赋值给结果范围的下一行。

要使用这个示例代码，你需要将它复制粘贴到VBA编辑器中的一个模块中，并将工作表、值范围和结果范围根据你的实际情况进行修改。然后，你可以运行这个宏来计算索引和LinEst公式的结果。