Change column references J -> M

costing-tool-module-1.vbs

@@ -81,7 +81,7 @@ Sub copytemp()
 
 'copy staff
     Sheets("Project Information").Select
-    Range("D13:J13").Select
+    Range("D13:M13").Select
     Selection.Copy
     Sheets(projectname).Select
     Range("A8").Select
@@ -94,7 +94,7 @@ Sub copytemp()
 
  'copy salary markup
     Sheets("Project Information").Select
-    Range("D12:J12").Select
+    Range("D12:M12").Select
     Selection.Copy
     Sheets(projectname).Select
     Range("Q18").Select
@@ -105,7 +105,7 @@ Sub copytemp()
 
  'copy hours
     Sheets("Project Information").Select
-    Range("D17:J17").Select
+    Range("D17:M17").Select
     Selection.Copy
     Sheets(projectname).Select
     Range("G18").Select
@@ -155,7 +155,7 @@ Sub copytemp()
         :=False, Transpose:=False
  'Copy subcontractor markups
     Sheets("Project Information").Select
-    Range("J71:J75").Select
+    Range("M71:M75").Select
     Selection.Copy
     Sheets(projectname).Select
     Range("G29").Select
@@ -199,7 +199,7 @@ Sub copytemp()
  'Copy expense price markups
 
     Sheets("Project Information").Select
-    Range("J78:J92").Select
+    Range("M78:M92").Select
     Selection.Copy
     Sheets(projectname).Select
     Range("H37").Select