CÓDIGO: SELECIONAR TODOS
With Sheets("Produtos")
Dim LL As Integer
LL = Me.TextBox7.Value - Me.TextBox8.Value
    ' Adicionando dados na folha de Planilha
Plan1.Range("A60000").End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(0, 3).Value = LL
End With

Uso esse código para dar baixa em um estoque onde:

textbox7 = quantidade do produto em estoque
textbox8 = quantidade de saida (digitada)

o problema é que o código salva sempre uma linha depois da selecionada
alguem teria uma solução ou outro código que tivesse mesmo "efeito"

Obrigado!