Bom dia,
Como faço para que o seguinte código não dê erro, quando a célula estiver em branco, ou sem valor?
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 2 Then

Dim Linha As Integer
Dim Nome As String

Select Case Target.Column
Case Is = 5
Linha = Application.Match(Target.Value, Range("J:J"), 0)
Nome = Cells(Linha, "I").Value
Linha = Application.Match(Nome, Range("A:A"), 0)
Cells(Linha, "B").Value = Now
Range("E2").Select
Case Is = 7
Linha = Application.Match(Target.Value, Range("J:J"), 0)
Nome = Cells(Linha, "I").Value
Linha = Application.Match(Nome, Range("A:A"), 0)
Cells(Linha, "C").Value = Now
Range("G2").Select

End Select
End If
End Sub