Vba to insert text in range of cells

[rstuck]

here is a dirty sample. you could make this better if you made the words into constant variables and then looped through the spreadsheets.

Range("W2").Select
    ActiveCell.FormulaR1C1 = "Fit"
    Range("W3").Select
    ActiveCell.FormulaR1C1 = "Web To"
    Range("W4").Select
    ActiveCell.FormulaR1C1 = "To"
    Range("W5").Select
    ActiveCell.FormulaR1C1 = "TA"
    Range("W6").Select
    ActiveCell.FormulaR1C1 = "IDS"
    Range("W7").Select
    ActiveCell.FormulaR1C1 = "OWN"
    Range("W2:W7").Select
    Selection.Copy
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll ToRight:=12
    Range("X2").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    ActiveWindow.SmallScroll ToRight:=11
    Range("X2").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    ActiveWindow.SmallScroll ToRight:=12
    Range("X2").Select
    ActiveSheet.Paste
    Sheets("Sheet4").Select
    ActiveWindow.SmallScroll ToRight:=10
    Range("W2").Select
    ActiveSheet.Paste
    Sheets("Sheet5").Select
    ActiveWindow.SmallScroll ToRight:=11
    Range("X2").Select
    ActiveSheet.Paste