Hi

This should do it:

Sub Macro1()
'
Dim sh As Worksheet
'copy range from template sheet
Sheets("Ind Templates").Rows("38:50").Copy

'for each sheet in workbook after "ind templates"
x = Sheets("Ind Templates").Index
For Each sh In ThisWorkbook.Sheets
If sh.Index x Then
'paste the copied data 1row below the last row used
sh.Paste sh.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next
Application.CutCopyMode = False
End Sub

Hopes this helps.

---
Per

On 6 Maj, 21:40, "J.W. Aldridge" wrote:
Doesn't work....
Any clues?

Sub Macro1()
'
'copy range from template sheet
Sheets("Ind Templates").Select
Rows("38:50").Select
Selection.Copy

'for each sheet in workbook after "ind templates"
x = Sheets("Ind templates").Index
For Each Sh In ThisWorkbook.Sheets
If Sh.Index x Then

'paste the copied data 1row below the last row used
Range("A365").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste

End If
Next

End Sub