Find the last Row in a Range

[TK]

Trying to write to the last row in a range. The following code works down to
( The next line fails ....
Thanks:


Private Function FindLastRow()
Dim R As Long
R = 2
Do While R < 65536 And Len(Cells(R, 11).Text) > 0
R = R + 1
Loop
FindLastRow = R
End Function

Private Sub ListBox1_Click()
Lastrow = FindLastRow - 1
MsgBox Lastrow
Sheet1.Range("k1").Value = UserForm1.ListBox1.Value

( The next line fails - how should it be written?)
Sheet1.Range("kLastrow").Value = UserForm1.ListBox1.Value

End Sub

 

[Tom Ogilvy]

Sheet1.Range("k" & Lastrow).Value = UserForm1.ListBox1.Value


you can also get the lastrow with

lastrow = cells(rows.count,11).End(xlup).row

 

[TK]

Thanks Tom