If you have a contiguous list of data in the destination sheet (no blank
cells within the list), you can try this:

Sheets("Destination_Sheet").Select
Range("A2").select ' assumes column A is where you want the additional value
If activecell.value = "" Then
activecell.value = MyAdditionalValue
Else If
If activecell.value < "" and activecell.offset(1,0).value = "" Then
activecell.offset(1,0).value = MyAdditionalValue
Else
Selection.End(xlDown).Select
activecell.offset(1,0).value = MyAdditionalValue
End if

Hope this helps.

Keith

"tzam" wrote:

Hello all.

I had a question as to how to perform a certain task. I know how to record
a Macro, but am not really sure how to get the results I want if possible.

Here's the situation:

I have a list of names in one sheet, followed by a checkmark. What I want to
do is, when you click on the checkmark, I want that name transfered to
another list in another sheet (same workbook).

I understand how to do it if it takes the name and places it in another cell
on the new workbook, but what if there is already something in that cell.?
Is there a way to add it on the next line? Without deleating what was
already there?

Thanks in advance for the help!