Copy From Column Some Cells And Paste It In Another Column

Code:
Range("a" & Cells.Rows.Count).End(xlUp).Select
Range(Selection, "a1").Select
For Each cell In Selection
If Not IsEmpty(cell.Value) Then
If cell.Value "2012*" Then
cell.Copy
cell.Offset(0, 5).PasteSpecial
End If
End If
Next cell

I have a to copy from column A some cells ( e.g "000005PR RODI T.R, S.L.") and paste it in column F. The problem is that in column A i have as well empty cells and cells that have date (e.g "2012 02 14-OCT-2011 CN 100725") . Neither the IF/AND nor the "double" if constructs are working .