wsS.Cells((FinalS1 + 1), 3).Value = S
To mark your code as code just highlight it and click on the #