¿Alguien me puede ayudar con una macro en excel?

Hola buenas tardes, no se nada de macros e intente hacer con un video de youtube una macro para listar un directorio, en la primer hoja esta capturado el formato, para capturar datos, y en la segunda hice el reporte para que acumule los datos que le capturo, solo que lo hace con la primer captura pero la siguiente o no aparecen los datos o aparecen en otra celda o columna. Este es el código que me da mi macro.
Sub formato()
'
' formato Macro
'
'
    Range("D5").Select
    Selection.Copy
    Sheets("reporte").Select
    Range("B2").Select
    Selection.Insert Shift:=xlDown
    Sheets("formato").Select
    Range("D7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("reporte").Select
    Range("C2").Select
    Selection.Insert Shift:=xlDown
    Range("D2").Select
    Sheets("formato").Select
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("reporte").Select
    Selection.Insert Shift:=xlDown
    Sheets("formato").Select
    Range("D5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("D7").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D5").Select
End Sub
Gracias por su ayuda, la verdad que interresante es su página y la ayuda que nos brindan a todos es super. Atentamente. Ama de casa