g'day
i'm very new to excel, infact i was scared of it up until a month ago when i began my 'very basic' applications course.
my query is this, i have a created a POS style worksheet, i have buttons that open other buttons and msg boxes, i even have a delete button that works! but i cant seem to be able to get my data to copy into worksheet 2 when i've finished putting the data in.
i would like my info from ws1 to copy into ws2 simultaneously, i would also like ws1 to basically blank at the end of the day and open empty the next day but all the info on ws2 to stay where it is. when i begin again the next day, i would like the info from ws1 to dump into the next available cell from the day before. am i making sense?
i would also like for my delete button to delete on ws1 but highlight and 'not' delete on ws2.
again, i stress that i am a complete blank slate when it comes to excel vba but i am keen to get to know it better. is it possible to be able to do what i want simply and with little code? what follows is the code from ws1


Private Sub input_data()
Dim rg As Range
Set rg = Range("a2")
'ActiveCell = rg
Do Until IsEmpty(rg) = True
Set rg = rg.Offset(1, 0)
Loop

rg.Value = Now()
rg.Offset(0, 1).Value = InputBox("name")
rg.Offset(0, 2).Value = InputBox("username")
rg.Offset(0, 3).Value = InputBox("pc")
MsgBox ("good to go")

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Private Sub CommandButton1_Click()
UserForm4.Show

End Sub

Private Sub CommandButton2_Click()
Selection.Delete Shift:=xlUp
End Sub

Private Sub hours_Click()
Set rg = Range("e2")
UserForm1.Show

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

'another Q is, where do i put the code once i have it? do i put it in with one of the userforms/buttons or do i add it into the main sheets vba??
i'm happy to try to work it out, so if someone would rather direct me to where i can find the code, or tell me exactle what it is i'm looking for that would be good too
'cheers for your time
'fly