title: Excel - Copy & paste cells within range when date falls between two user set parameters
body: <p>I am desperate to make this macro work.  I would like a button click to prompt users to enter a beginning and end date, then the macro to copy cells data from B:F in every row where cell A* contains a date within the range starting with row 4.  It would then focus to the destination sheet and paste the info into columns H:L starting at row 7.</p>
  
  <p>The source table looks something like this, where rows 1-3 are devoted to sheet info and should be exempt from the macro's analysis</p>
  
  <pre><code>   |   A  |  B  |  C  |  D  |  E  |  F  |
  -----------------------------------------
  4  | Date |INFO |INFO |INFO |INFO |INFO |
  5  | Date |INFO |INFO |INFO |INFO |INFO |
  6  | Date |INFO |INFO |INFO |INFO |INFO |
  7  | Date |INFO |INFO |INFO |INFO |INFO |
  </code></pre>
  
  <p>The destination sheet looks like this, with rows 1-6 being used for sheet info.</p>
  
  <pre><code>   |  H  |  I  |  J  |  K  |  L  |
  ----------------------------------
  7  |INFO |INFO |INFO |INFO |INFO | 
  8  |INFO |INFO |INFO |INFO |INFO |
  9  |INFO |INFO |INFO |INFO |INFO |
  10 |INFO |INFO |INFO |INFO |INFO |
  </code></pre>
  
  <p>And the code I have tried to piecemeal together is </p>
  
  <pre><code>Sub Copy_Click()
  
  Dim r As Range
  Set r = Range("B:F")
  
  startdate = CDate(InputBox("Begining Date"))
  enddate = CDate(InputBox("End Date"))
  
  For Each Cell In Sheets("SOURCE").Range("A:A")
      If Cell.Value &gt;= startdate And Cell.Value &lt;= enddate Then
          Sheets("SOURCE").Select
          r.Select
          Selection.Copy
  
          Sheets("DESTINATION").Select
          ActiveSheet.Range("H:L").Select
          ActiveSheet.Paste
          Sheets("SOURCE").Select
      End If
  Next
  
  End Sub
  </code></pre>
  
  <p>This is obviously not working, and there are no instructions to have it paste to the next available row, nor start on row 7 when pasting to the destination sheet.</p>
  
  <p>Any help would be amazing!</p>