update,

jimmycheung93/task4/1/APAnalysis_Sales_Calc.bas

@@ -0,0 +1,25 @@
+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
+