Enter Shift In Schedule For Printing

Hi long time reader, first time poster! I hope that my post title was acceptable.

I have a staff scheduling workbook that my team members use to create weekly employee schedules. They would like to enter the shift info into a table laid out in the manner it will be printed and posted. The attached example #1 in the file will illustrate.

I need to have the schedule info the team member enters be copied onto a different worksheet in the workbook in a conventional list format so that I can build a pivot table from it. I am very comfortable with the pivot table use once I get the data into the correct form, see example #2 in the file.

Your help is greatly appreciated as I know the correct solution is to bag the whole mess and learn access, but our busy season is kicking in and I won't have time until june! I consider myself very comforatble with excel in general but have never ventured into VBA. I am ready to cautiously go into that good night if needed (with guidance)!

Thanks Again, your time is very appreciated!
Cameron

Re: Enter Data In Table For Printing, Copy Data Into List Form

Thanks for the suggestions!

I am trying to go the Macro route to make the schedule tool as easy as possible for the users. I put the module into the schedule workbook and then tried to edit it to work with the correct worksheet names and ranges.

I am now getting a runtime error '424'

Here is the original code (just a portion of it):

Dim lrow As Long, r As Long, wks As Long, rws As Long, i As Long
Dim rng As Range


With Sheet1
    rws = .Range("A1").End(xlDown).Row
    wks = (.Range("A1").CurrentRegion.Columns.Count - 1) / 4


    For i = 1 To wks
        .Range("A2:A" & rws).Copy Sheet2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    Next i

and here is my adaption:
Dim lrow As Long, r As Long, wks As Long, rws As Long, i As Long
Dim rng As Range

With Culinary_Schedule
rws = .Range("B16").End(xlDown).Row [COLOR="SeaGreen"] this is where the error occurs[/COLOR]
wks = (.Range("B16").CurrentRegion.Columns.Count - 1) / 4

Any thoughts? I didn't want you to "write my code for me" but I'm stumped! Any suggestions on how I can get the original macro to work in the new location or do you need more info on the worksheet?

Thanks,
Cameron