Bom dia..

Preciso que ao Digitar algo na coluna "B" seja posto automático um X na coluna "W"
Tenho este código abaixo que com "Data" coloca um X na "W"

'Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 10 And Target.Row > 4 Then 'Coluna e Linha
If Not Intersect(Target, Range("J5:J" & Target.Row)) Is Nothing Then 'Coluna Origem ' "J"
If Target <> "" Then
vData = Format(Range("J" & Target.Row), "X")
Range("W" & Target.Row) = vData 'Coluna Destino
Else
Range("W" & Target.Row) = "" 'Coluna Destino
End If
End If
End If