Cuando borro la fila me tira error

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a:a")) Is Nothing Then
        If Target <> "" Then
        Application.EnableEvents = False
            Macro1
          Application.EnableEvents = True
            Else
        End If
    End If
        If Not Intersect(Target, Range("L:L")) Is Nothing Then
        If Target <> "" Then
        respuesta = MsgBox("Desea archivar los datos de los bonos", vbYesNo, "ATENCION")
        If respuesta = vbYes Then
        Application.EnableEvents = False
               macro2
         Application.EnableEvents = True
            Else
        End If
    End If
End If
End Sub

tengo este evento que me permite ingresar datos desde la columna A hasta la columna L en cualquier fila necesito una macro aparte que cuando me pocisione en en cualquier fila me borre los datos de A hasta L

gracias