Insert value into next available cell in range?

[mrphilk]

Hi,

I am making a sheet to run time trials and would like to add a time value in a cell at the click of a button, like so;

Sub Button2_Click()
Range("C4").Value = Time
End Sub

I will add a second value and subtract the difference (this is to record machine stoppages).

Is there a way of entering the value in the next available cell in a range, so for example the first click would be C1, then C2, then C3 etc etc.

Thanks

 

[mole999]

If you did this

Sub Button2_Click()
Dim LastRow
LastRow = Range("C65536").End(xlUp).Row
Range("C" & LastRow).Value = Time
End Sub

 

[VoG]

Try

Sub Button2_Click()
Range("C" & Rows.Count).End(xlUp).Offset(1).Value = Time
End Sub