Autofill column to last row

[CodeNinja]

Thanks for your help. I'm getting a Compile Error: Syntax Error on this line.

[vba]

Range("I1:I"activesheet.range("I65536").end(xlup).row).Select
[/vba]

Sorry in haste I forgot to put an ampersand.... that line should be:

[VBA]Range("I1:I" & ActiveSheet.Range("I65536").End(xlUp).Row).Select[/VBA]