Macro to match left string

You can try my code or you can edit Special-K's code to this 0

If Left(Worksheets("Data").Cells(CR, 1).value,6) = "6digit" Then