Without a loop, this might do it for you:

Sub AddText()

     Selection.SpecialCells(xlCellTypeBlanks).Offset(-1, 0) = "');"

End Sub