The last row is hard coded to 11 –
Ws1.Range("A1:S11")

You need to make the last row dynamic. You should know how to do that. ( http://www.excelfox.com/forum/showth...ll=1#post11466 Making Lr dynamic ( using rng.End(XlUp) for a single column. ) )
Try first yourself. If you have difficulties I will help again later