Write validation info to a Cell

I know how to write data (xxx) to the first available empty cel in kolom A on a worksheet by using this code below:

Please Login or Register  to view this content.

I also found a piece of code that writes Validation to a specific Cell

Please Login or Register  to view this content.

Is it possible to combine these two codes so that data xxx is written to the next available cell in kolom A on a worksheet AND write the validation info to the same cell also ???

Stojko89, thx for this. It gave me some little errors but I was able to resolve them myself.
The code is working excellent now