Attribute VB_Name = "APAnalysis_Sales_Calc"
Option Explicit

Function Run(ByVal TablesMeta As Variant)
    ' agent_working_performance
    Dim agent_working_performance As Variant
    Dim awp_rows As Variant
    Dim awp_lastrow As Integer
    Dim awp_current_row As Integer
    
    ' init agent_working_performance
    agent_working_performance = TablesMeta(2)
    awp_rows = agent_working_performance(0)
    awp_lastrow = CInt(agent_working_performance(1))
    awp_current_row = 0
    
    For awp_current_row = 1 To 4
        Debug.Print (awp_rows(1, 1))
    Next awp_current_row
    
    
    
    Run = "done"
End Function