Faster Snippets VBA...

Can anyone make these faster?

Snippet1
ThisWorkbook.Sheets("TSC").Range("3:10").Calculate

Sheets("TS1").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("4:4").Value

Sheets("TS2").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("6:6").Value

Sheets("TS3").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("8:8").Value

Sheets("TS4").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("10:10").Value

Single sheet calculation, paste multiple sheets.

Snippet2
Sheets("DataIn").Select
ActiveCell.EntireRow.Copy

Sheets("DataUse").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues

Differrent sheets, with changings rows.

TIA