At end of macro
Code:
' In Actual File, copy S10 Value to S9 and S8
 Ws.Range("S10").Copy
 Ws.Range("S8:S9").PasteSpecial Paste:=xlPasteValues
End Sub