title: How to check range/column of cells based on month and copy them
body: <p>So essentially, what I'm trying to do is this:</p>
  
  <pre><code>------A--------B-------C-------D------
  1  Date       Weight   Misc     ID*
  2  2014-06-12 210              445556
  3  2014-07-13 150              546456
  4  2014-08-14 265              546456 
  5  2014-09-15 655              655654
  6  2014-10-16 87               546656
  7  2014-10-17 1552             545488
  8  2014-11-18 225              546545
  </code></pre>
  
  <p>I have a button and I want it to run a macro that checks if the dates in Column A fall within the current month. I've tried using </p>
  
  <pre><code>Month(Date)
  </code></pre>
  
  <p>but it checks the entire date, not the month only.</p>
  
  <p>If the month in the cell in colmumn A equals the current month, I want it to copy the entire row of information corresponding to that particular cell. For example: When the current month is november, I want it to copy A8+B8+C8+D8, then I will paste that information in a whole different workbook.</p>
  
  <p>Keep in mind that I'm completely new to VBA, but this is what I've come up with so far:</p>
  
  <pre><code>Sub dat()
  Dim rng As Range
  Dim dat As Date
  dat = Month(Date)
  For Each rng In Range("A2:A100")
  If rng.Value = dat Then
  Range("???").Copy
  Range("A1").PasteSpecial
  End If
  Next
  End Sub
  </code></pre>
  
  <p>Nothing really happens. If I change it to <code>dat=Date</code> then it only works for this particular day, and it takes forever to run through 1000 cells.</p>
  
  <p>I was thinking if I could use <code>Cells(Rows.Count, "A").End(xlUp).Value = Month(Date)</code> somehow. Is this even possible?</p>
  
  <p><strong>EDIT:</strong> To paste in a different workbook I used the following commands:</p>
  
  <pre><code>Dim wb As Workbook
  Set wb = Workbooks.Open("C:\Users\....DOCUMENT.xlsm")
  </code></pre>
  
  <p>And then to paste:</p>
  
  <pre><code>wb.Sheets("Sheet1").Range("A" &amp; NextDest &amp; ":F" &amp; NextDest).PasteSpecial
  </code></pre>