O que está de errado com este VBA

Bom dia!
A todos
O que está de errado com esta VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range
linha = Target.Row
Set Colunas = Range(“A2:A200”) '.Value = “Pago”
If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then
Range(“B” & linha).Value = Date
Else
Range(“B” & linha).Value = “”
End If
End Sub

Esse set está funciona do. Eu aoagaria o restante apos o )

Valteson
Boa noite!
Fiz algumas modificações e funcionou, veja como ficou.
Obrigado por interessar em ajudar novamente.
SPP CHARGE OCORRE EVENTO CELULA SEGUINTE.xlsm (17,4,KB)