генерация из excel письма

[Dm1tr]

Доброе время суток. Имеется код для генерации из файла письма. Необходимо чтобы макрос пробегал по диапазону столбца L, находил последнюю заполненную ячейку и возвращал значение этой ячейки в тему письма. Сейчас он возвращает номер строки

Sub SendMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Set cell = [L1].End(xlDown)
If cell.Row <> Rows.Count Then x = cell.Value

'создаем новое пустое сообщение в Outlook
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

'заполняем его адрес, тему и т.д.
With OutMail
.To = Range("O1").Value
.Subject = x.Value
.Attachments.Add Range("O2").Value
'вместо Send можно использовать Display, чтобы посмотреть сообщение перед отправкой
.display
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub