title: Copy cells till last blank cell and paste in new worksheet
body: <p>I want to copy a range of cells i.e. from 7th row of column F to column K and paste the copied cell in another worksheets(Sheet2). 
  The range should be copied from 7th row till last blank cell and it should get pasted in (Sheet2) from B1 to B6 every time in this same range replacing the previous value.</p>
  
  <p>Kindly help me to start with it.</p>
  
  <hr>
  
  <p>I have done some changes as suggested, but I want the code to loop the values in sheet(2) and paste the values in sheet 3 by replacing only in row A5 to AG5.
  But below code is only pasting the first row. It should loop from first row to last empty cell in sheet 2 and paste in sheet 3 in range A5 to AG5.</p>
  
  <pre><code>Sub LoopCopy()
  
  Dim EndRow As Integer
  
  'Find the last row with data
  
  EndRow = ThisWorkbook.Sheets(2).Range("D7").End(xlDown).Row
  'Set the range in sheet 2 to the range you want to copy in sheet 1
  ThisWorkbook.Sheets(3).Range("A5", "AG5").Value = ThisWorkbook.Sheets(2).Range("F7", "AL" &amp; EndRow).Value
  End Sub
  </code></pre>