Copy value to last available cell
 

How would i copy a value to the next avaliable cell in
sheet(Error handle)and then loop and copy that value to
the next cell underneath that one.