Sub CopyMonthsToMaster()
'Go to month
'Get last used row in colulm A (LR1)
'Copy range "B9:T" & LR1)
'Go to Master Worksheet and get first blank row in colulm A (LR2)
'Paste copied values
'Select cell A1
'Next month in Array
Dim arrSht, i
Dim LR1, LR2 As Long
Application.ScreenUpdating = False
arrSht = Array("January", "February", "March", "April", "May", "June", "July", _
"August", "September", "October", "November", "December")
Sheets("Master").Range("A2:T9999").Clear
For i = LBound(arrSht) To UBound(arrSht)
Worksheets(arrSht(i)).Select
With Worksheets(arrSht(i))
.Unprotect Password:=""
Application.CutCopyMode = True
LR1 = Worksheets(arrSht(i)).Range("A" & Rows.Count).End(xlUp).Row
Worksheets(arrSht(i)).Range("B9:T" & LR1).Copy
LR2 = Sheets("Master").Range("A9999").End(xlUp).Row + 1
Sheets("Master").Range("A" & LR2).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Protect Password:=""
End With
Next i
Sheets("Master").Activate
Sheets("Master").Range("A1").Select
Application.ScreenUpdating = True
End Sub