Any ideas? Tried putting this together but not working....

Sub Paste_to()
Sheets("Ind Templates").Select
Range("A1:F13").Select
Selection.Copy


x = Sheets("Ind Templates").Index
For Each Sh In ThisWorkbook.Sheets
If Sh.Index x Then
'Do something
Range("A1").Select
ActiveSheet.Paste

End If
Next

End Sub