Endless syntax errors, please help!

Projects Personal Projects
1

I am working on a barcode scanning project and am running into endless syntax errors. Be easy on me I am an extreme amateur and beginner at coding. Currently I am getting this error when I go to de-bug

Syntax error: SyntaxError: Unexpected identifier line: 12 file: Code.gs

here is the code I am trying to run in Google Sheets.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range(“a2:b2”)) Is Nothing Then
Call access
Application.EnableEvents = True
End If
End Sub
Sub access()
Dim barcode As String
Dim rng As Range
Dim rownumber As Long
ActiveSheet.Cells(2, 1).Select
If Not IsEmpty(ActiveCell.Value) Then
ActiveSheet.Cells(2, 2).Select
End If
If ActiveSheet.Cells(2, 1) <> “” And ActiveSheet.Cells(2, 2) <> “” Then
barcode = ActiveSheet.Cells(2, 1) & “-” & ActiveSheet.Cells(2, 2)
End If
ActiveSheet.Cells(2, 3) = barcode
barcode = ActiveSheet.Cells(2, 3)
If barcode <> “” Then
Set rng = ActiveSheet.Range(“a3:a150”).Find(What:=barcode, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If rng Is Nothing Then
ActiveSheet.Range(“a3:a1005”).Find("").Select
ActiveCell.Value = barcode
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Date & " " & Time
ActiveCell.NumberFormat = “m/d/yyyy h:mm:ss AM/PM”
ActiveSheet.Cells(2, 1) = “”
ActiveSheet.Cells(2, 2) = “”
ActiveSheet.Cells(2, 3) = “”
Else
rownumber = rng.Row
ActiveSheet.Range(Cells(rownumber, 1), Cells(rownumber, 10)).Find("").Select
ActiveCell.Value = Date & " " & Time
ActiveCell.NumberFormat = “m/d/yyyy h:mm:ss AM/PM”
ActiveSheet.Cells(2, 1) = “”
ActiveSheet.Cells(2, 2) = “”
ActiveSheet.Cells(2, 3) = “”
End If
End If
ActiveSheet.Cells(2, 1).Select
End Sub