How to create different drop down lists depending on user's response?

I have a spreadsheet attached 'Dose report1', done on Excel 2003, that transfers data from sheet1 to sheet2 once the user presses a Command button. Works but I need to add some functions for it to be usable.

These functions are all relating to:
1. different drop down lists appearing depending on which option the user selects in the previous cell.
2. once an option is selected, cells that aren't applicable to the response become greyed out and 'unclickable' - and it must be obvious so that they don't continue to click/type where they shouldn't - a good idea would be to set up that if you're tabbing across cells, you skip straight over it + make the cell grey or something.

What's needed is explained below:

1. clicking the 'Machine' drop down list E:14 and selecting 'Siemens' the following cells should be unusable (so that you can't write in it and looks something like this attachment attachment '1.'):
- the 'Field size' cell F:14 is unusable
- the 'DAP (mGy.m2)' cell M:14 is unusable

2. clicking the same drop down list and selecting 'Phillips', then (attachment 2):
- the 'DAP (µGy.m2)' located N:14 unusable

3. the next few are related to the 'Exam type' cell H:13
- selecting 'Orthopaedics' from the drop down list should then create a certain list in the next cell, 'Exam' I:14, shown in attachment 3 + the 'Acquisition time' cell O:14 should grey out
- selecting 'Vascular' from the drop down list should create a different drop down list in 'Exam' I:14, shown in attachment 4 + the 'Acquisition time' cell O:14 should now be active
- selecting 'ERCP' or 'Lap Chole' from H:14 should grey out 'Exam' cell I:14 + grey out 'Acquisition time' cell O:14
- selecting 'Other' from H:13 should let the user enter whatever they want in I:13 'Exam' + grey out O:14 as well.

(so: cell O:14 'Acquisition time' should be greyed out for every choice in the drop down of H:14 'Exam type' except 'Vascular')

Is all of this possible to do?

The code I have at the moment is:

Sub movedata()
    With Sheet2.Cells(1, 1).CurrentRegion
         .Offset(.Rows.Count, 0).Resize(1).Value = Sheet1.Range("B14:Q14").Value
         Sheet1.Range("B14:Q14").ClearContents
    End With
End Sub

I would really appreciate your help on this one, it's for work and I'm trying to make sure we get reliable data so ppl can't mismatch the incorrect fields....... way over my head though, any suggestions??

Willge