Transpose data from one sheet to another based on date

Hi everyone, I'm new to the community and hoping you can help!

I work as a programme manager for a range of projects and events, and our administrator runs a tracker spreadsheet to keep track of material creation/advertising etc. it looks like this and (with a lot of hidden rows and columns for other events that have already run).

tracker.PNG

I've been asked to create a shareable 'calendar' that puts the same information into a table in this order:

Example.PNG

Essentially, pulling the programme and module over to a new sheet in the same workbook, but marking what month in the calendar it is running, which in some cases is multiple times as we repeat modules.

I've managed to get it half working by using a combination of IF Functions, the MONTH function and a macro to remove rows where the month didn't match:

Sub DeleteZeroRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find("0", LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub

As you can imagine, this worked for the first month but when pulling it across to the other months in the table it was deleting the rows it had previously 'filtered out'.

I've not had much success and I'm starting to think I've been asked to achieve the impossible so I'd be really interested to see if anyone has any suggestions.

I hope I've made sense!

Thanks in advance.