THANK YOU SOOOOO MUCH! it was just a silly mistake but you've helped me with my project soo much! thank you ! Thank you.

Here's the working code in case others run into this problem, I still have to clean up the ".Select"s but other than that it works. 

Sub LookCopy()


Dim Today As Double
Dim Test As Double
Dim i As Integer



Today = Worksheets("Daily Report").Cells(6, "C").Value

For i = 1 To 700

Sheets("Production Data - 09").Select

If Worksheets("Daily Report").Cells(6, "C").Value = Worksheets("Production Data - 09").Cells(i, "A").Value Then
Sheets("Daily Report").Select
Range("E30").Select
Selection.Copy
Sheets("Production Data - 09").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues

End If

Next i

End Sub