Ocultar movimiento de la macro

buenas tardes, esta macro que adapte pasa por muchas hojas y libros distintos y me gustaría ocultar ese movimiento para que sea mas elegante:

Sub CARGAR_BASE()
Sheets("Config").Select
Range("A3:H3").Select
Selection.Copy
Sheets("Res. Activos").Select
ActiveSheet.Range("B8").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("Config").Select
Range("A8:Y8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Archivo Activos").Select
ActiveSheet.Range("B7").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("Config").Select
Range("A12:S12").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "\BASEC.XLS"
ActiveSheet.Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Ingresar Fichas").Select
Range("K3").Select
ActiveCell.FormulaR1C1 = "INGRESADO"
Range("K3").Select
ActiveWorkbook.Save
MsgBox "La información a sido ingresada correctamente, ahora puede generar la plantilla."
End Sub

Gracias