title: Copy data from sheet 1 to sheet 2 using VBA
body: <p>I have an excel spreadsheet. There are two sheets in this.</p>
  
  <ul>
  <li><p><strong>Sheet1:</strong></p>
  
  <ul>
  <li><code>Company</code></li>
  <li><code>Department</code></li>
  <li><code>Addressline1</code></li>
  <li><code>Addressline2</code></li>
  </ul></li>
  <li><p><strong>Sheet2:</strong></p>
  
  <ul>
  <li><code>Account</code></li>
  <li><code>Department</code></li>
  <li><code>Address</code></li>
  </ul></li>
  </ul>
  
  <p>I need to :</p>
  
  <ul>
  <li>Check till the last non blank row in <code>Company</code> column.</li>
  <li>Copy the <code>Company</code> data values into <code>Sheet2.Account</code>, <code>Sheet1.Department</code> into <code>Sheet2.Department</code>.</li>
  <li>Concatenate <code>Sheet1.Adddressline1</code> and <code>Sheet2.Addressline2</code>.</li>
  <li>Copy into <code>Sheet2.Address</code>  on clicking a button using VBA Macros.</li>
  </ul>
  
  <p>code:</p>
  
  <pre><code>Sub Button1_click()
   Worksheets("Sheet1").Range("A2").Copy _
      Destination:=Worksheets("Sheet2").Range("F2" &amp; Rows.Count).End(xlUp).Offset(1)
   Worksheets("Sheet1").Range("B2").Copy _
      Destination:=Worksheets("Sheet2").Range("C2" &amp; Rows.Count).End(xlUp).Offset(1)
   Worksheets("Sheet1").Range("F2").Copy _
      Destination:=Worksheets("Sheet2").Range("B2" &amp; Rows.Count).End(xlUp).Offset(1)
    Worksheets("Sheet1").Range("H2").Copy _
      Destination:=Worksheets("Sheet2").Range("K2" &amp; Rows.Count).End(xlUp).Offset(1)
   Worksheets("Sheet1").Range("I2").Copy _
      Destination:=Worksheets("Sheet2").Range("K2:K200" &amp; Rows.Count).End(xlUp).Offset(1)
    Worksheets("Sheet1").Range("L2").Copy _
      Destination:=Worksheets("Sheet2").Range("M2" &amp; Rows.Count).End(xlUp).Offset(1)
  Worksheets("Sheet1").Range("AO2").Copy _
      Destination:=Worksheets("Sheet2").Range("I2" &amp; Rows.Count).End(xlUp).Offset(1)
   Worksheets("Sheet1").Range("BF2").Copy _
      Destination:=Worksheets("Sheet2").Range("J2" &amp; Rows.Count).End(xlUp).Offset(1)
  End Sub
  </code></pre>