Blocage au niveau copier coller en VBA

Bonjour,

j'ai un petit blocage au niveau de ma macro excel. J'essaye de copier une plage de cellule excel de plusieurs documents sur un seul. L'idéale serait de pouvoir à la fin de chaque copie avoir le curseur placé sur la dernière ligne et de sauter une ligne entre chaque copie.

Est ce que quelqu'un pourrait m'éclairer ?

Merci d'avance.

-------------------------------------------------
Sub kalio()

On Error Resume Next

nbjour = InputBox("Combien de jour pour le mois précedent?")
nummois = InputBox("n° du mois ?")
annee = InputBox("quelle année ?")

For f = 0 To nbjour - 1

classeur1 = "MOD-nouveau compte rendu icp-stats-macros.xls"
classeur2 = f + 1 & "-" & nummois & "-" & annee & ".xls"
chemin = "D:\Infocentre\Desktop\acticall\Stephane\New_cr\" & classeur2
Workbooks.Open chemin

'Selectionner la feuille en question & activation
Workbooks(classeur2).Activate
'déclaration variable'
Dim ma_plage As Variant
Dim last_line As Variant

'initialisation des variables'

ma_plage = Range("A6:R17").Select '.End(x1up).Offset(10, 0).Row

selection.Copy
Workbooks(classeur1).Activate
Active.Sheets ("Kali")
ActiveSheet.Paste 'obliger d'utiliser cette appellation sinon la copie ne fonctionne pas "Select.Paste" ne fait pas de coller
MsgBox "Vos données ont été copiés dans la feuille Kali"

Workbooks(classeur2).Activate
ActiveWorkbook.Close
Next f
End Sub