I have the following macro in excel:
Sub Analyze()
' , ' ; - !
LR = Application.WorksheetFunction.CountA(Sheets("Address Original").Range("A:A"))
k = 2
Sheets("Errors").Range("A2:N1000000").ClearContents
For i = 2 To LR
c = ""
For j = 1 To 13
c1 = 0
c2 = 0
c3 = 0
c4 = 0
c5 = 0
c6 = 0
c7 = 0...