This would normally do the trick
but for some reason it doesn't work on your workbook.
I can select a single row manually
but not with a macro. I have no explanation. Perhaps you do.
'These do not work
Rows(R).Select
Rows(R & ":" & R).Select
Rows("36:36").Select
Sub Macro1()
Dim flag As Boolean
Dim Count, R As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
flag = False
For Count = 1 To 12
If ActiveSheet.Name = MonthName(Count) Then flag = True: Exit For
Next
R = ActiveCell.Row
If flag = False Or R < 11 Then Exit Sub
For Count = 2 To 12
Sheets(MonthName(Count)).Select
Rows(R).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Bookmarks