Ok, so where are you stuck? Post back some code, and we can help.
Here is a portion of he solution:
TheStuffToCopy = thisworkbook.worksheets("tabwithform'').Range("A1:B99")
thisworkbook.worksheets("theheettocopyt'').Range(''A1:B99").value = TheStuffToCopy
Now you just need to count the rows (access would insert this automattically into a table for you!)
Why don't you use an Access DB and a form? Much less code!
It's kind of fun to do the impossible! -Walter Elias Disney