Macro to encode in last blank cell up to the last used row.

[mark_anthony]

I have a worksheet that contains data but column E has blank cells. i want to automatically encode on the last blank cell in column E up to the last used row.
i am using the ff. code to select the last blank cell in column E:
Range("E1").End(xlDown).Offset(1, 0).Select

i am using the ff. code to select the last used row:
ActiveSheet.UsedRange.Rows.Select

but it doesn't work.

in my excel file, all i want to do is to encode "ECASE-UNUSABLE-UPD" in cell E61:1549 , wherein E61 = is the last blanck cell & E1549 = is the last used row.

please help.

thanks.

[mark_anthony]

By the way here's the attachment