Sub Matrix()

Dim i As Integer
Dim a As Integer

For a = 1 To 5
	For i = 1 To 30
		Selection.Copy
		ActiveCell.Offset(1, 0).Select
		ActiveSheet.Paste
	Next i

	ActiveCell.Offset(-i + 2, 1).Select

Next a


End Sub