Add one line in bold
            a(i, 1) = "'" & a(i, 1)
            For ii = 4 To UBound(a, 2) Step 4
                If a(1, ii) = "Current" Then Exit For
                If a(i, ii) <> "" Then