Adding a value to first empty cell in column

[panthers7171]

I have a form with a combobox that has a value in it. I then run a Sub to determine if that value is already present in Column A of a Worksheet. This works fine (or so it appears).

If the value is already present in that Column then the Sub ends.

If the value is not present...then I need some way to determine the first empty cell in the column (there are no empty ones between the first and last filled cells). At that point I need to copy the value from the combobox into that cell.

I've tried several of the tricks I've learned the last few weeks...but no luck yet.

Tips or suggestions would be great.

[JBeaucaire]

This piece of code will select the first empty cell in column A, adjust what you want to happen from there:

Range("A65535").End(xlUp).Offset(1, 0).Select

If problems persist, post your existing code and the desired value (where it's coming from).