yes here are two macros created for each of the scenarios.
Code:
Option Explicit
Sub InsertRowsHere()
'must be in a sheet and on a row e.g. A4
Dim aSheet, oShts
Dim iRow As Long
oShts = Array("conduct team", "strategy team", "planning team", "forecast team", "results team")
iRow = ActiveCell.Row 'get which row
For Each aSheet In oShts
Sheets(aSheet).Rows(iRow).Insert
Next
End Sub
Sub CopyRowsHere()
Dim aSheet, oShts, aRange As Range
Dim iRow As Long
'must first select a region to copy e.g. sheet1!A4:C10
oShts = Array("conduct team", "strategy team", "planning team", "forecast team", "results team")
Set aRange = Selection
For Each aSheet In oShts
If aSheet <> ActiveSheet.Name Then _
Sheets(aSheet).Range(aRange.Address).Value2 = aRange.Value2
Next
End Sub
Bookmarks