title: Merge columns from Multiple Sheets into Summary Sheet without blanks
body: <p>I have many sheets of which some are <strong>A, B, C and D.</strong>
  Each of them have different data sets, however columns <strong>E,F,G</strong> have the same type of data.</p>
  
  <p>I would like to merge the data from the columns E,F,G of the sheets A, B, C and D Paste in <strong>Columns A,B,C</strong> of <strong>Sheet Summary</strong>. </p>
  
  <p>The problem I am facing is that the range E2:G(last row with data) has empty rows in the beginning and also in the Middle. Example: E2:G10 is blank and data might be present from E11:G30. This is making my copy paste erroneous.</p>
  
  <p>The Following is the Code I have written. But, for some reason the data in the Sheet D is altered. Also, as I did not know how to exempt empty rows while copying, I used a separate code block to delete the empty rows at the end of copy paste activity in the Sheet Summary.</p>
  
  <pre><code>Sub CopyRange()
  Dim bottomD As Integer
  Dim ws As Worksheet
  For Each ws In Sheets(Array("A", "B", "C", "D"))
  ws.Activate
  bottomD = Range("E" &amp; rows.Count).End(xlUp).Row
  Range("E2:G" &amp; bottomD).Copy Sheets("Summary").Cells(rows.Count,"E").End(xlUp).Offset(1, 0)
  Next ws
  
  Dim r As Range
  Dim rows2 As Long
  Dim i As Long
  Set r = ActiveSheet.Range("A:A")
  rows2 = r.rows.Count
  For i = rows2 To 1 Step (-1)
  If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
  Next
  
  End Sub
  </code></pre>