title: Copying and Pasting Range of Data to specific date cells
body: <p>I have this code which works and is awesome however it can only find the current date we are in (because of DateValue (now)) I would like this to be set off a cell value instead on the "Input" Worksheet (Cell D4) in particular. </p>
  
  <p>Anyone know how?</p>
  
  <pre><code>Sub FindToday()
  
  Dim FoundDate As Range
  Set FoundDate = Worksheets("Data").Columns("A").Find(DateValue(Now), LookIn:=xlValues, lookat:=xlWhole)
  
  If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip.
      Worksheets("Input").Range("A4:H4").Copy
      FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values.
  End If
  End Sub
  </code></pre>
  
  <p>Thanks all</p>