Sorting into multiple sheets

I've tried googling this, but i'm only finding issues the wrong way. Maybe i'm google after the wrong thing..

I have each month a set of data, i would like to have sorted/cut n paste to several sheets.

I made a very simple test sheet. for it. in this example you can see what i need to do..

I put in data in data sheet. I then run macro that will sort and move intire lines after there department. always copied after last value. Sorted after dateAttachment 133308
on purpose there are 2 simular lines. while this can be a possebillity.

This example will then create 3 lines in "T 1" and 1 in both "T 2" and "T 3".

Departments and sheets, will increase in time. So a intelligent way to do this instead of hardcoding after each incline in departments is appreciated. I'm think that i can make some kind of look up list of 200 rows. And it will run through and only look for the set range of values. also so this can be used for other purposes.

Hope someone can tell me, what to look for out there, I've tried some kind of a loop with ifs and offset. But that was a terrible setup.. or maybe someone can create this macro in a second.


Also is there som good online tutorials on the setting up applications/loops in vba.. I'm selvtaught from google, and a lot of intrest. And i'm getting better all the time.. I can understand things like

Sub CopyByPage()
Dim rRange As Range, rCell As Range, Helper As Range
Dim wSheet As Worksheet
Dim wsMaster As Worksheet
Dim strText As String

With Application

But only if i get them online. I not good enough to compile theese. and would love to learn.. Because this works better than all the loops I end up making. :-)

In advance Thank you very much..