Sub copymonth()
'sets sheet array for months, can update to include additional months
Dim shts As Variant: shts = Array(Sheets("July"), Sheets("August"))
'declares 1st Qtr worksheet
Dim qtr1 As Worksheet: Set qtr1 = ThisWorkbook.Sheets("1st Qtr")
'general declarations
Dim Q1lrow As Long, sh As Worksheet, i As Long
'find last row in 1st Qtr sheet based on column A (revise to suit)
Q1lrow = qtr1.Cells(qtr1.Rows.Count, "A").End(xlUp).Row
'loops through shts array copying specified range to 1st Qtr tab
For i = LBound(shts) To UBound(shts)
With shts(i)
.Range("A2:L500").Copy
qtr1.Cells(Q1lrow + 1, 1).PasteSpecial xlPasteValuesAndNumberFormats
End With
'updates last row on 1st Qtr tab
Q1lrow = qtr1.Cells(qtr1.Rows.Count, "A").End(xlUp).Row
Next i
'resets Q1 last row
Q1lrow = vbNull
End Sub