Transfer data from sheet A to Sheet B

Depending on the actual week and the username I would like to transfer data
from Sheet A to Sheet B.
For example: input from user(name) "123" in Sheet A cells d5:d8 need to be
copied to row username "123" to the next empty column in Sheet B.
30 users need to fill Sheet A cells d5:d8. Each time a new user adds data in
Sheet A data will be transfered to Sheet B. Need a Visual Basic code to do
the action.
Thanks in advance.

Results Sheet B

User Week 41 42 43 44 etc.
"123" a b d
b a b
c d c
d c a
------------------------------------------------------------------------------
---------------------------
"345" a b d
b a b
c d c
d c a
------------------------------------------------------------------------------
---------------------------
"678" a b d
b a b
c d c
d c a
------------------------------------------------------------------------------
---------------------------
"912"
------------------------------------------------------------------------------
---------------------------
"234"
------------------------------------------------------------------------------
---------------------------
"567"
------------------------------------------------------------------------------
---------------------------
"890"