Sub copyrecursive()

Dim ws As Worksheet

Dim R As Range

For Each ws In ActiveWorkbook.Worksheets

    For Each R In Range("A1:E2").Rows

        ws.Range("A1:E1").copy

        Worksheets("Sheet7").R.PasteSpecial

    Next R

Next ws

End Sub