autofill+addrows+lookup

hi,

i need some help with a macro! i got a database with 3 columns. In the first one there is date, in the second names and in the last one, values. it looks like that :
2006-01-01 U 1,00
2006-01-02 U 1,89
.
.
2006-12-31 U 1,56
2006-01-01 A 2,01
2006-01-02 A 0.09
.
.
2006-12-31 A 1.34
and so on...
I need to be able to change all date (like a switch between 2006 and 2007), and to be able to add a new name with the right number of row for the studied year. I tried with a userform, but i'm stuck in the year change and the rows adding!

Sub Macro2()
Range("A2").AutoFill Destination:=Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
Range("B2").AutoFill Destination:=Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
End Sub

that's my code...but dont know how to make it works in a userform...and the code is not working like i would like(if the name in column 2 is something like U 1, in the next row it puts U 2 and so on!)