Problem: When I run macro I receive unexpected error message

Question

Here is the code.

    Sub Macro1()
\'
\' Macro1 Macro
\'

\'
     Let x = 0
    Do While x < 2
    Range("A" & Rows.Count).End(xlUp).Offset(1).Se