Supondo que você irá colocar o código em um botão e que estará com a linha desejada selecionada antes de clicar no botão, basta trocar
Target.Row - 1
Por
ActiveCell.Row
Outra alternativa, seria acrescentar o código que você tem no evento
Private Sub Worksheet_SelectionChange
Postado : 26/02/2018 6:03 am