Excel Need a way to copy and past information

[CRS--]

Hello

i am tring to make a holiday rota and i am looking for away to copy information form one sheet to the next on the click of a button and then delete the information on the first sheet will also need it to keep saving it to the next row when different data is added

i have uploaded my excel file to try explain what i mean

thank you if anyone can help

FileSwap.com : Holiday Planner.xlsx download free

 

[mumps]

Hello CRS. Place the following code into the code module for the worksheet "In Put" (not into a regular module). You will not need the "SAVE" button as the data will be copied to the other sheet automatically.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C5,C9,C13,C17")) Is Nothing Then Exit Sub
    If Target.Address = "$C$5" Then
        Target.Copy Sheets("Annual Leave Planner").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    ElseIf Target.Address = "$C$9" Then
        Target.Copy Sheets("Annual Leave Planner").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
    ElseIf Target.Address = "$C$13" Then
        Target.Copy Sheets("Annual Leave Planner").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)
    ElseIf Target.Address = "$C$17" Then
        Target.Copy Sheets("Annual Leave Planner").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0)
    End If
End Sub