My project is to get a list for underage users of a forum I moderate at that can be added to and shows the age of users and if they have parental consent and all that jazz.

I'm trying to get a form to submit its content to a database sheet. I can get it to submit to a row of choice but i just need it to go to the next open row. I have looked at all the 'tips' and none have helped me out with what i'm doing. Here is my VBCode:

Sub NewEntry()
'
' NewEntry Macro
' Macro recorded 4/6/2005 by Grant Bivens.
'
' Keyboard Shortcut: Ctrl+a
'
    Sheets("Data").Select
    ActiveSheet.Unprotect
    Sheets("New").Select
    Range("A4:G4").Select
    Selection.Copy
    Sheets("Data").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A4,C4,E4,G4").Select
    Range("G4").Activate
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Range("B3").Select
    Selection.AutoFill Destination:=Range("B3:B4"), Type:=xlFillDefault
    Range("B3:B4").Select
    ActiveSheet.Protect
End Sub
as you can see this just over writes row 4 data.

I also need to make it to where I can find and remove users above the age of 13, when ever deemed nessicary, from the list and create a new sheet with that data for printout. The empty rows would also need to be filled so the data should shift up.

If somebody could help me out with this and get me going it would be great. There might be some cash involved if you can help me get this thing knocked out.

You can reach me a number of different ways:

MSN: [email protected]
AIM: rgbivens
Yahoo: kjkangb
Email: [email protected]

If you want I can send you what I have so far for review and to get a better understanding of what I'm wanting.

-Grant