diff --git a/fpvt.frm b/fpvt.frm
index 340b5a9..2db68b6 100644
--- a/fpvt.frm
+++ b/fpvt.frm
@@ -335,6 +335,7 @@ Private Sub UserForm_Activate()
     fVal = 0
     fVol = 0
     fPrc = 0
+    Me.tbAPI.value = ""
     
     If IsNull(sp("package")("totals")) Then
         fpvt.Hide
diff --git a/fpvt.frx b/fpvt.frx
index 2d75cf9..a038d1d 100644
Binary files a/fpvt.frx and b/fpvt.frx differ
diff --git a/handler.bas b/handler.bas
index 8016a2f..0379b97 100644
--- a/handler.bas
+++ b/handler.bas
@@ -169,23 +169,13 @@ Sub pg_main_workset(rep As String)
     res(0, 30) = "cost_loc"
     res(0, 31) = "cost_usd"
     res(0, 32) = "units"
-
     
     Set json = Nothing
 
     ReDim str(UBound(res, 1), UBound(res, 2))
     
-    For i = 0 To UBound(res, 1)
-        For j = 0 To UBound(res, 2)
-            If IsNull(res(i, j)) Then
-                str(i, j) = ""
-            Else
-                str(i, j) = res(i, j)
-            End If
-        Next j
-    Next i
-    
-    Call x.SHTp_Dump(str, "data", 1, 1, True, False, 28, 29, 30, 31, 32)
+    Worksheets("data").Cells.ClearContents
+    Call x.SHTp_DumpVar(res, "data", 1, 1, False, True, True)
     
 
 End Sub
diff --git a/months.cls b/months.cls
index 260ef0e..1878742 100644
--- a/months.cls
+++ b/months.cls
@@ -217,7 +217,7 @@ Sub ms_adj()
     Dim i As Integer
     Call Me.get_sheet
     Dim vp As String
-    vp = Sheets("month").Range("R2")
+    vp = Sheets("month").Range("Q2")
 
     For i = 1 To 12
         If sales(i, 4) = "" Then sales(i, 4) = 0