macro excel 2010 ( copier une série de donnée changeante dans une feuille sur une ligne)

Bonjour,
j'ai un travail à réaliser mais le soucis c'est que je ne connais pas du tout le VB et je dois réaliser une macro sur Excel 2010 qui permet de copier différentes cellules d'une feuille sur une même ligne. Cela j'y arrive a l'aide du programme ci dessous. Cependant a chaque fin d'opération j'efface ces cellules et je remet des autres valeur et j'aimerais que la macro continue a copier ces différentes valeurs mais à des lignes différentes car si je change valeur de mes cellules, cela écrase la première ligne de donnée.
Je ne sais pas si cela est bien compris?

Programme:Sub Macro5()
'
' Macro5 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Range("A7:A8").Select
Selection.Copy
Range("K15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B7:B8").Select
Application.CutCopyMode = False
Selection.Copy
Range("L15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7:C8").Select
Application.CutCopyMode = False
Selection.Copy
Range("M15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D7 8").Select
Application.CutCopyMode = False
Selection.Copy
Range("N15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F28:F29:F30").Select
Application.CutCopyMode = False
Selection.Copy
Range("O15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A7:A8").Select
Application.CutCopyMode = False
Selection.Cut
Application.CutCopyMode = False
Selection.ClearContents
Range("B7:B8").Select
Selection.ClearContents
Range("C7:C8").Select
Selection.ClearContents
Range("D7 8").Select
Selection.ClearContents

End Sub