title: Try to calculate VAT in the same line of net amount in E, but the answer is not correct
body: <p>I tried to use code to calculate <strong>VAT</strong> and <strong>Total</strong> in the same Line E (same line as net amount), but the answer of VAT is much higher than 20% of net amount. Same problem with Total amount. I think these two figures might pick up some other figures rather than just net amount. Here is part of my code below, could you please give me some advice? Many thanks</p>
  
  <pre><code>Option Explicit
  
  Sub copy_info()
  Dim i As Long, j As Long, lastRow As Long
  Dim sh As Worksheet
  
  With Sheets("Order List")
  .Range("A22:F50").Clear
  .Range("A21") = "PART CODE"
  .Range("B21") = "DESCRIPTION"
  .Range("C21") = "PRICE"
  .Range("D21") = "QUANTITY"
  .Range("E21") = "NET AMOUNT"
  .Range("F21") = "SHEET NAME"
  .Range("A21:F21").HorizontalAlignment = xlCenter
  .Range("A21:F21").VerticalAlignment = xlCenter
  .Range("A21:F21").Font.Bold = True
  End With
  
  j = 22
  
  For Each sh In ActiveWorkbook.Sheets
      If sh.Name &lt;&gt; "Order List" And sh.Name &lt;&gt; "INDEX" And sh.Name &lt;&gt; "SELECTOR" Then
          lastRow = sh.Cells(sh.Rows.Count, "B").End(xlUp).Row
          For i = 28 To lastRow
              If sh.Range("G" &amp; i) &gt; 0 And sh.Range("G" &amp; i) &lt;&gt; "QUANTITY" Then
                  sh.Range("b" &amp; i).Copy Destination:=Worksheets("Order List").Range("A" &amp; j)
                  sh.Range("e" &amp; i &amp; ":g" &amp; i).Copy Destination:=Worksheets("Order List").Range("B" &amp; j)
                  Sheets("Order List").Range("E" &amp; j) = Sheets("Order List").Range("C" &amp; j) * Sheets("Order List").Range("D" &amp; j)
                  Sheets("Order List").Range("F" &amp; j) = sh.Name
                  Sheets("Order List").Range("B" &amp; j + 1) = ""
                  Sheets("Order List").Range("B" &amp; j + 2) = "VAT"
                  Sheets("Order List").Range("E" &amp; j + 1) = ""
                  Sheets("Order List").Range("E" &amp; j + 2) = Application.WorksheetFunction.Sum(Columns("E:E")) * 0.2
                  Sheets("Order List").Range("B" &amp; j + 3) = "TOTAL"
                  Sheets("Order List").Range("E" &amp; j + 3) = Application.WorksheetFunction.Sum(Columns("E:E"))
  
  
                  j = j + 1
              End If
          Next i
      End If
  Next sh
  </code></pre>