From f7cc9ded159833c1267f6b45eb6f6355b5096003 Mon Sep 17 00:00:00 2001
From: Dan Howe <d.howe@wrl.unsw.edu.au>
Date: Thu, 21 Mar 2019 15:22:29 +1100
Subject: [PATCH] Change RPU summary row references 37 -> 43

---
 costing-tool-module-1.vbs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/costing-tool-module-1.vbs b/costing-tool-module-1.vbs
index ef3d34c..73d46c1 100644
--- a/costing-tool-module-1.vbs
+++ b/costing-tool-module-1.vbs
@@ -130,7 +130,7 @@ Sub copytemp()
     Range("S35").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
-        Range("S37").Select
+        Range("S43").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
 
@@ -167,7 +167,7 @@ Sub copytemp()
     Range("C78:C92").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("A37").Select
+    Range("A43").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
 
@@ -175,7 +175,7 @@ Sub copytemp()
     Range("C78:C92").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("C37").Select
+    Range("C43").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
 
@@ -184,10 +184,10 @@ Sub copytemp()
     Range("N78:N92").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("D37").Select
+    Range("D43").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
-    Range("G37").Select
+    Range("G43").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
 
@@ -202,7 +202,7 @@ Sub copytemp()
     Range("M78:M92").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("H37").Select
+    Range("H43").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False