Move Data to Another Sheet in top Row

Can someone help to modify code below so a row on sheet "Master Roster" is moved to anouther sheet "Placed" but moved to row 1 pushing other data down a row ... Private Sub Worksheet_Change(ByVal Target As Range) 'stop anything re-triggering this event macro Application.EnableEvents = False On Error GoTo ErrHnd 'test if changed cell is in column J (col. 10) and it contains P (or p) If Target.Column = 10 And UCase(Target.Text) = "P" Then Dim rngCell As Range Dim rngDest As Range Dim strRowAddr As String 'save target row address strRowAddr = Target.Address 'find next row in destination worksheet Set rngDest = Worksheets("Placed"). _ Range("A" & CStr(Application.Rows.Count)).End(xlUp).Offset(1, 0) 'cut the source row & paste to destination Target.EntireRow.Cut Destination:=rngDest 'remove the cut/copy range marquee Application.CutCopyMode = False 'delete the source row Worksheets("Master Roster").Range(strRowAddr).EntireRow.Delete _ Shift:=xlUp End If Application.EnableEvents = True Exit Sub 'error handler ErrHnd: Err.Clear Application.EnableEvents = True End Sub

• › [Solved] Move Data to Another Sheet in Next Empty Row
• › [Solved] Move a row to another sheet if Closed or Completed
• › VBA copy data to another sheet
• › [Solved] Move Row to Another Tab if Complete in Excel 2010
• › [Solved] Moving Rows to another Sheet
• › pull data from one sheet to another sheet
• › [Solved] (EXCEL VBA) i tried to loop a random copy rows to new sheets