Macro to covert Text to Numbers

I have written code to covert text to numbers, but the text is not being converted to numbers


It would be appreciated if someone could amend my code

 Sub convertTexttoNumbers()
Dim LR As Long
With Sheets("Data")
LR = .Cells(.Rows.Count, “A”).End(xlUp).Row
    .Range ("A2:A" & LR)
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub