Prezados, boa tarde!

Com a ajuda do Forum, montei uma planilha que envia o faturamento da minha empresa automaticamente via e-mail.

Estou com duvida no código abaixo.
Fizemos uma variável "celly" que é a celula dentro da rotina de FOR pro Range "T10:T127".

O que eu gostaria é que toda vez que celly <> "", ele coloque o valor "Sim" na célula a esquerda da celula correspondente ao celly. tentei utilizar o código Range(celly.Offset(0, -1)) = "Sim" porém não funcionou.

Poderiam me ajudar, por gentileza?

For Each celly In Sheets("VENDAS CONSOLIDADAS").Range("T10:T127")

  If celly <> "" Then

    Set rng = Nothing
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set myAttachments = OutMail.Attachments
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    anexo = "C:UsersDocuments" & celly.Offset(0, 2).Value & ".pdf"
    Endereco = Application.WorksheetFunction.VLookup(celly.Offset(0, 3).Value, Sheets("Endereços").Range("A2:B150"), 2, 0)
    Titulo = "Fatura " & celly.Offset(0, 4).Value & " " & Sheets("VENDAS CONSOLIDADAS").Range("X4").Value & " 2017/ " & celly.Offset(0, 3).Value
    Range(celly.Offset(0, -1)) = "Sim"

    On Error Resume Next
    With OutMail
        .display
        StrSig = .HTMLbody
        .To = Endereco
        .CC = Endereco2
        .BCC = ""
        .Subject = Titulo
        .HTMLbody = "<FONT FACE=Calibri (Corpo)>" & StrBody & StrSig
        myAttachments.Add anexo
        .display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

  End If

Next celly

Muito obrigado!!
Atenciosamente,
Leonardo.