Je n'arrive pas a incrementer

Bonjour,

mon probleme sur les 11 premiers colonnes je veux en me placant sur la premiere ligne couper la ligne et la coler 2 colonnes a cote,donc pour ca pas de probleme,par contre pour la deuxieme ligne,et bien elle remplace la premiere au lieu d etre en dessous
voila mon code

j = 10

ActiveCell.Select
Selection.Resize(1, 11).Cut

j = j + 1

Cells(j, 13).Select

ActiveSheet.Paste

Cells(j, 1).Select

merci de votre aide