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