Duda sobre formularios de macros.

Tengo este código, es para un formulario de macros.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es B13:B18 se muestra el Formulario.
    If Not Intersect(Target, Range("G8:G8")) Is Nothing Then
        UserForm1.Show
        'En todo caso no se muestra.
    Else
    End If
End Sub

Al momento de ir a la hoja "Reparaciones", va todo bien, cargo el formulario, esta macro, hace lo que pido, que es abrir un pequeño formulario y al intentar escribir algun repuesto, me autocompleta con los mas similares.

Pero al momento de ejecutar otra macro, que es esta.

Sub Grabar_reparaciones()
'
' Grabar_reparaciones Macro
'
'
    Range("G4:G15").Select
    Selection.Copy
    Sheets("Registros de reparaciones").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Rows("4:4").Select
    Range("B4").Activate
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("B4").Select
    Sheets("Reparaciones").Select
    Range("G4").Select
    Selection.ClearContents
    Range("G5").Select
    Selection.ClearContents
    Range("G6").Select
    Selection.ClearContents
    Range("G7").Select
    Selection.ClearContents
    Range("G8").Select
    Selection.ClearContents
    Range("G9").Select
    Selection.ClearContents
    Range("G11").Select
    Selection.ClearContents
    Range("G12").Select
    Selection.ClearContents
    Range("G13").Select
    Selection.ClearContents
    Range("G14").Select
    Selection.ClearContents
    Range("G4").Select
End Sub

Me vuelve a aparecer el pequeño formulario que hay en la celda G8.

Como puedo hacer para que al ejecutar la segunda macro, ¿no ejecute la primera?