I am trying to take data from from a Sheet called %Efficiency and past it
into a sheet Called MMM11. I the problem is in my selecion of the the range
to copy. I don't know why it won't work. The only problem that i was
thinking it could be is that cells A1-C1 do not contain a date where as the
rest of the row 1 does. I don't know though please help.

Dim X As Integer, Y As Integer
For X = 1 To 100
If Cells(1, X) < Date Then Y = X
Next
Sheets("%Efficiency").Select
Selection.Range(Cells(1, Y + 1), Cells(3, Y - 19)).Select
Selection.Copy
Sheets("MMM11").Select
ActiveSheet.Range("B19").Select
Selection.PasteSpecial (xlPasteValuesAndNumberFormats)