совместить 2 макроса

[Kraimon]

не подскажите как совместить эти два макроса, на одном листе одновременно они не работают

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("лист1")
.Select
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [h:h]) Is Nothing And Target.Value = "\" Then
.Rows(Target.Row).Copy Sheets("лист2").Rows(WorksheetFunct ion.CountA(Sheets("лист2").[a:a]) + 1)
.Rows(Target.Row).Delete
End If
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E1:E500")) Is Nothing Then
Target = StrConv(Target, 3)
End If
End Sub

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next ' на случай сбоя макроса, чтобы включить Application.EnableEvents
    Application.EnableEvents = False    ' временно отключаем обработку событий
    If Not Intersect(Target, Range("E1:E500")) Is Nothing Then
        Target = StrConv(Target, 3)
    End If
    If Not Intersect(Target, [h:h]) Is Nothing And Target.Value = "\" Then
        Target.EntireRow.Copy Sheets("лист2").Rows(WorksheetFunction.CountA(Sheets("лист2").[a:a]) + 1)
        Target.EntireRow.Delete
    End If
    Application.EnableEvents = True    ' включаем обратно
End Sub

пример в файле: http://excelvba.ru/XL_Files/Sample__...__17-53-57.zip

[Kraimon]

работает спс !!!!!!