OK, since your data layouts are slightly different, try change to
        SL.Clear
        For i = 2 To UBound(a, 1)
            If a(i,1) <> "" Then SL(a(i, 2)) = a(i, 1)
        Next