title: Copy data to first blank row in another sheet, only if first column is not blank (amount of data varies)
body: <p>I want to be able to press a button to copy some data across from sheet "Data Entry" to the first blank row in another sheet "Database".</p>
  
  <p>However, if the first column is blank, I don't want that row of data to be copied. Also, sometimes the "Data Entry" sheet may have 4 rows of data, whilst sometimes it may have 5, 6, 7 or 8.</p>
  
  <p>I've attached screenshots below.</p>
  
  <p>The code I'm using so far is not giving any error, but nothing seems to be happening, either.</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  
      Dim cl As Range    
      For Each cl In Sheet2.Range("A8:A23")
  
          If Not IsEmpty(ActiveCell.Value) Then
  
              Range("A" &amp; ActiveCell.Row &amp; ":R" &amp; ActiveCell.Row).Select
              Selection.Copy
              Sheets("Database").Select
              ActiveCell.End(xlDown).Offset(1, 0).Select
              ActiveSheet.Paste
  
          End If    
      Next cl
  End Sub
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/mJdLp.jpg" alt="image2">
  <img src="https://i.stack.imgur.com/i96Ru.jpg" alt="image3"></p>