Copy and paste multiple times

hey guys, first time on these forums and i was hoping for some help. Im trying to make a macro to copy and paste a section of excel to another spread sheet. Only thing is it maybe 15 lines or less and the first section needs to be pasted several times below.i realse this may be a confusing explaination so ive attached a excel file with different tabs showing what i mean. For these purposes i put them in separtate sheets but really they will be in separate files. the zeros would be empty cells. Basically i am moving a bunch of forms to a master form to build a data base, hence why i have the macro finding the last free line in a the 'A' column because thats where the last entry would have been. If anyone could help i would be greatly thankful.

so far my macro looks like this

Sub Button1_Click()




Windows("Test.xlsm").Activate

Range("A7:N13").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Test2.xlsx").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Test.xlsm").Activate
Range("A7:E7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Test2.xlsx").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


End Sub

Thanks in advance