在插入行后尝试通过vba使用自动填充时，复制的公式不正确

Sub AutoFillFormula()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 在插入行后复制公式并自动填充
    ws.Cells(lastRow + 1, "A").Formula = ws.Cells(lastRow, "A").Formula
    ws.Cells(lastRow + 1, "A").AutoFill Destination:=ws.Range(ws.Cells(lastRow + 1, "A"), ws.Cells(lastRow + 1, "A").Offset(0, 1))
End Sub