diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 8ea6b9fd..fa464929 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -321,8 +321,8 @@ Function BuildViewFromSheet() As Object
 
     Dim colSorter As New Dictionary
     r = 3
-    Do While Trim(defaultSh.Cells(r, "H").Value) <> ""
-        colSorter.Add defaultSh.Cells(r, "H").Value, defaultSh.Cells(r, "I").Value
+    Do While Trim(defaultSh.Cells(r, "J").Value) <> ""
+        colSorter.Add defaultSh.Cells(r, "J").Value, defaultSh.Cells(r, "K").Value
         r = r + 1
     Loop
 
@@ -533,7 +533,7 @@ Sub SetupFilterSorterTables()
 
     If sorterTbl Is Nothing Then
         Dim sorterHeader As Range
-        Set sorterHeader = ws.Range("H2:I2")
+        Set sorterHeader = ws.Range("J2:K2")
         sorterHeader.Cells(1, 1).Value = "��"
         sorterHeader.Cells(1, 2).Value = "���~��"
         Set sorterTbl = ws.ListObjects.Add(xlSrcRange, sorterHeader, , xlYes)