Sub Макрос2()
    Selection.Find(What:="Стар", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub
Sub Макрос3()
    Selection.Find(What:="Нов", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub
Sub Макрос4()
    Selection.Cut
    Range("A25").Select
    Selection.Insert Shift:=xlDown
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    firstRow = Columns("C").Find(What:="Стар", LookIn:=xlFormulas, LookAt:=xlPart).Row
    lastRow = Columns("C").Find(What:="Нов", LookIn:=xlFormulas, LookAt:=xlPart).Row
    If Not Intersect(Target, Range("A" & firstRow & ":A" & lastRow)) Is Nothing Then
        Target.Resize(2, 10).Cut
        Cells(Rows.Count, "A").End(xlUp).Offset(1).Insert
    End If
End Sub