Macro que me copia los datos de un formulario

buenas a todos
he creado un macro que me copia los datos de un formulario y me los va introduciendo en una lista y luego me borra los datos del formulario para poder introducir nuevos datos
y el problema lo tengo cuando intento hacer lo mismo pero los datos a copiar son numeros,
dejo aqui la macro
Range("B2").Select
Selection.Copy
Sheets("RESUMEN").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B3:C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("B2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("D2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("E2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESUMEN").Select
Range("F2").Select
Selection.Insert Shift:=xlDown
Sheets("FACT 01").Select
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("B3:C3").Select
ActiveCell.FormulaR1C1 = ""
Range("B4").Select
ActiveCell.FormulaR1C1 = ""
Range("B5").Select
ActiveCell.FormulaR1C1 = ""
Range("B6").Select
ActiveCell.FormulaR1C1 = ""
Range("B7").Select
Range("J20").Select
Selection.Copy
Sheets("RESUMEN").Select
Range("G2").Select
Selection.Insert Shift:=xlDown
End Sub

no tengo mucha idea de basic la macro la creo con el programador , grabar macro, detener macro
gracias por cualquier ayuda