The code below works great - but only once. That is, it does not move
down the empty column on subsequent calls. The content is placed
correctly in the first empty cell, but the code does not seem to be
able to detect that here is new content in the cell and move on. Do I
need to initialize a variable? I have tried testing the cell several
ways:


If Range("E9").Value = " " Then
If Range("E9").Value = 0 Then


neither detect the empty cell.
Here is the code that works 'once'.



Sub copyCell()

'L6 holds copy of Earned Points

If Range("E9").Value = "" Then
Range("E9").Value = Range("L6").Value
Else
Range("E9").End(xlDown).Offset(0, 0).Value = Range("L6").Value
End If

End Sub


--
elrussell
------------------------------------------------------------------------
elrussell's Profile: http://www.excelforum.com/member.php...o&userid=31020
View this thread: http://www.excelforum.com/showthread...hreadid=518125