Workbook_SheetChange помогите объединить

[Neo007]

Друзья, помогите объединить 2 макроса, которые запускаются автоматически, при каком-либо действии(изменении). Первый при копировании ячеек делает автоматически специальную вставку значения, чтобы не повредить формат. А второй, для нечентых столбцов при вводе 0 или удалении значения вставляет "-" (тире). Как их объединить, чтобы они работали вместе. Вроде получалось подставить 2 под первый, но диапазон тогда не получается копировать. Помогите, пожалуйста.

[EducatedFool]

Попробуйте так:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        If .CutCopyMode = xlCopy Then
            .EnableEvents = False
            .Undo
            Selection.PasteSpecial Paste:=xlPasteValues
            .EnableEvents = True
            .CutCopyMode = 0
        End If
        If .CutCopyMode = 0 Then Target.Value = Target.Value
    End With

    If Target.Column Mod 2 = 1 And Target.Column < 10 Then
        For Each Cell In Target
            If Cell.Value = "0" Or Cell.Value = "" Then Cell.Value = "-": Cell.Next.Next = "-"
        Next
    End If
End Sub