VBA Code To Move A Row To A Different Worksheet Within The Same Workbook

[Excel Fox]

Copy this to the sheet module of the sheet from which you want to cut the row. And change the destination sheet name as required.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count = 1 And Target.Column = 9 And Target.Cells(1).Value = "Y" Then
        Target.EntireRow.Copy Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2)
        Target.EntireRow.Delete xlUp
    End If
    
End Sub