You can't just place a String value (.Text) in an If statement without any conditions - you need to put something for it to check.

You could make sure that it doesn't equal an empty string:
Code:
If ActiveSheet.Cells(i, 1).Text <> "" And ...
...or that it is Not equal to an empty string:
Code:
If Not(ActiveSheet.Cells(i, 1).Text = "") And ...