Attached is your amended workbook. I have provided code that does what you have asked.
Go to sheet named "Projects" and click on the button to add a new project. It defaults to the next sequential number, but that can be overwritten if you want.
I have added a sheet named "Dummy" to hold the area that needs copying to create the 2 additional columns each time.
If you delete a project after adding it then you should delete the columns and not the values (UsedRange.Columns.Count will treat the columns as occupied because if formatting left behind)
Sub AddProject()
With Sheets("Projects")
PrevProj = Left(.Range("A3").End(xlDown).Value, 4)
NextProj = PrevProj + 1 & " - "
NewProject = InputBox("Input New Project", "New Project", NextProj)
.Range("A3").End(xlDown).Offset(1, 0).Value = NewProject
End With
With Sheets("2015")
nextcol = .UsedRange.Columns.Count + 1
Sheets("Dummy").Range("B1:C23").Copy
.Cells(1, nextcol).PasteSpecial xlAll
.Cells(2, nextcol).Value = NewProject
End With
With Sheets("2014")
nextcol = .UsedRange.Columns.Count + 1
Sheets("Dummy").Range("B1:C23").Copy
.Cells(1, nextcol).PasteSpecial xlAll
.Cells(2, nextcol).Value = NewProject
End With
With Sheets("SUMMARY")
nextcol = .UsedRange.Columns.Count + 1
Sheets("Dummy").Range("B1:C23").Copy
.Cells(1, nextcol).PasteSpecial xlAll
.Cells(2, nextcol).Value = NewProject
End With