Объединить два макроса

[Kraimon]

Добрый день. Подкажите как объдинить два макроса

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&
lr = Sheets("âûáûëè").Cells.Find(What:=" *", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
With Me
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [a:a]) Is Nothing And Target.Value = " " Then
.Rows(Target.Row).Copy Sheets("âûáûëè").Rows(lr)
.Rows(Target.Row).Delete
End If
End With
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.Cells(Target.Row, 11) = Date
End Sub

[IgorGO]

никому не известно, что Вы пытаетесь добиться этими макросами, но, думаю, если сунуть строку из второго макроса в середину первого будет в самый раз.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lr&
  lr = Sheets("âûáûëè").Cells.Find(What:=" *", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
  With Me
    If Target.Count > 1 Then Exit Sub
    Me.Cells(Target.Row, 11) = Date
    If Not Intersect(Target, [a:a]) Is Nothing And Target.Value = " " Then
      .Rows(Target.Row).Copy Sheets("âûáûëè").Rows(lr)
      .Rows(Target.Row).Delete
    End If
  End With
End Sub

и вот это немного смущает ... .Cells.Find(What:=" *", ..., Вы уверены, что там нужен пробел перед *?

[Hugo121]

        Application.EnableEvents = False
        Me.Cells(Target.Row, 11) = Date
        Application.EnableEvents = True

Чтоб лишнее не бегало по кругу...
Кстати, а почему оно вообще не зацикливается?

[Kraimon]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&
lr = Sheets("âûáûëè").Cells.Find(What:=" *", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
With Me
If Target.Count > 1 Then Exit Sub
Me.Cells(Target.Row, 11) = Date
If Not Intersect(Target, [a:a]) Is Nothing And Target.Value = " " Then
.Rows(Target.Row).Copy Sheets("âûáûëè").Rows(lr)
.Rows(Target.Row).Delete
End If
End With
End Sub

Пишет:
run-time error '-2147417848 (80010108)
Automation error

[Hugo121]

У меня не пишет. Но меня Вы игнорируете

[Kraimon]

я не понял куда писать )

Application.EnableEvents = False
Me.Cells(Target.Row, 11) = Date
Application.EnableEvents = True

[IgorGO]

вместо одной строки, которую вписал я, гораздо корректнее вписать 3 строки, как предложил Hugo121

удачи!

[Hugo121]

Вообще у меня работатло и с одной строкой, только дольше. Возможно работало потому, что Ваши каракули "âûáûëè" я заменил на индекс существующего листа.
Проверять с каракулями не хочу.

[Kraimon]

Действительно работает) Спасибо