Change RPU summary row references 18 -> 21

costing-tool-module-1.vbs

@@ -87,7 +87,7 @@ Sub copytemp()
     Range("A8").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
-    Range("A18").Select
+    Range("A21").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
     Application.CutCopyMode = False
@@ -97,7 +97,7 @@ Sub copytemp()
     Range("D12:M12").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("Q18").Select
+    Range("Q21").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
     Application.CutCopyMode = False
@@ -108,7 +108,7 @@ Sub copytemp()
     Range("D17:M17").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("G18").Select
+    Range("G21").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
  ' copy mark up percentage
@@ -116,7 +116,7 @@ Sub copytemp()
     Range("I2").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("S18").Select
+    Range("S21").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Range("H8").Select