Boucle pour copier et coller

Je dispose de données pour les années allant de 1921 à 2014 dans Excel. Les années sont triées les unes sous les autres. Je veux effectuer une analyse des séries chronologiques, mais je dois d'abord gérer l'ensemble des données pour que les années soient triées côte à côte. Les données sont (les années sont dans la colonne A et les valeurs sont dans la colonne B) :

*1922 -> first 110 value
*1923 -> second 110 value
…
*2014 -> last 110 value

Je veux organiser les données comme :

*For 1922, moving data from B113:B223 to C2:D112
*For 1923, moving data from B224:B334 to D113:D223
*For 1924, moving data from B335:B445 to E224:E334

J'ai écrit une macro, elle est très simple et ne suffit pas. Il devrait y avoir une boucle, mais je n'ai pas réussi à la comprendre :

Sub RangeTest()
    On Error Resume Next
    Dim xRg As Range
    Set xRg = Application.Selection
    Range("B113:B223").Copy Range("C2:C112")
    xRg.Select
End Sub

Je vous serais très reconnaissant pour votre aide.