Nathália Xavier

Poderiam me ajudar com unificar esse dois Worksheet_Change(ByVal Target As Range) para mesma planilha:

PRIMEIRO CÓDIGO

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Tratar

Dim campoAlt As String
Dim valorDig As String
Dim linha As Long

linha = Sheets("Registro").Range("A" & Rows.Count).End(xlUp).Row + 1

valorDig = Target.Value
campoAlt = Target.Address

With Sheets("Registro")
    .Cells(linha, 1) = Now()
    .Cells(linha, 2) = Application.UserName
    .Cells(linha, 3) = valorDig
    .Cells(linha, 4) = ActiveSheet.Name
    .Cells(linha, 5) = campoAlt
End With

Tratar:
Exit Sub

SEGUNDO CÓDIGO:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row + Target.Rows.Count, Target.Item(1, 1).Column).ID = Target.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nlin As Integer
Dim wsRegistro As Worksheet
Set wsRegistro = ThisWorkbook.Sheets("Registro")
Dim LinhaRegistro As Long
LinhaRegistro = wsRegistro.Cells(wsRegistro.Rows.Count, "A").End(xlUp).Row + 1
nlin = Target.Row
If Target.Item(1, 1).ID <> "" Then
If Target.Rows.Count > 1 Then
wsRegistro.Cells(LinhaRegistro, 1).Value = Now()
wsRegistro.Cells(LinhaRegistro, 2).Value = "Linhas " & nlin & " à " & nlin + Target.Rows.Count & " excluída"
Else
wsRegistro.Cells(LinhaRegistro, 1).Value = Now()
wsRegistro.Cells(LinhaRegistro, 2).Value = "Linha " & nlin & " excluída"
End If
Else
If Target.Rows.Count > 1 Then
wsRegistro.Cells(LinhaRegistro, 1).Value = Now()
wsRegistro.Cells(LinhaRegistro, 2).Value = "Linhas " & nlin & " à " & nlin + Target.Rows.Count & " inserídas"
Else
wsRegistro.Cells(LinhaRegistro, 1).Value = Now()
wsRegistro.Cells(LinhaRegistro, 2).Value = "Linha " & nlin & " inserídas"
End If
End If
Target.Item(1, 1).ID = ""
Cells(Target.Row + Target.Rows.Count, Target.Item(1, 1).Column).ID = Target.Address
End Sub