vba help please

[shevek]

hi,

i use the following code to paste the value of one cell into another when it is triggered...

lastrow = Target.Rows.Count
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
If Cells(3, 49) = 1 Then
Cells(3, 51) = Cells(3, 50)
Else
End If
Application.EnableEvents = True

instead of pasting to a target cell i want to paste to the next free space in a column...i.e. each time it is triggered it will paste the value from (3, 50) first to cell (3, 51) then (4, 51) then (5, 51) etc...

can anyone tell me how to modify the code please...

thanks

[NorthView]

You need to go to the bottom of the column and use an End(xlUp) to get a reference to the last non blank cell in the column, then use Offset(1,0) to refer to the next cell down. In Excel pre-2007 the maximum no of rows is 65536, in Excel 2007 it's 1048576, so in Excel 2003 putting the value of C1 into the first empty cell in Column C after the last non blank cell would like something like this:

Range("C65536").End(xlUp).Offset(1,0).Value = Range("C1").Value

[shevek]

it works, thank you very much...