So I have a with loop....
Dim i As Long
For i = 1 To 4000 If CalibSource.Cells(i, 1).Value = "1/2/2013" Then
CalibSource.Range(CalibSource.Cells(i, 1), CalibSource.Cells(i, 15)).Copy
CalibSh.Range("A" & CalibSh.Cells(Rows.Count, 1).End(xlUp).Row +...