[VBA] Αλλαγή τιμής κελιού από λίστα τιμών

[caudillo]

Την καλησπέρα μου σε όλο το forum.
Έχω σχεδόν τελειώσει ένα αρχείο Excel που φτιάχνω, αλλά δεν μπορώ να καταφέρω να λειτουργήσει κάτι τελευταίο.
Συγκεκριμένα σε ένα φύλλο, επιλέγοντας το όνομα καθηγητή, εμφανίζονται τα τμήματα που διδάσκει σε διπλανή στήλη και ακριβώς δίπλα το μάθημα που κάνει σε κάθε τμήμα με βάση τύπο.
Έχω μια μακροεντολή με την οποία δημιουργώ τόσα αντίγραφα ενός άλλου φύλλου, όσα και τα μαθήματα του καθηγητή, μετονομάζοντας ταυτόχρονα κάθε φύλλο όπως και το μάθημα.
Εκείνο που θα ήθελα είναι να μπορεί η μακροεντολή να παίρνει το τμήμα από κάθε μάθημα και να το βάζει ως τιμή σε συγκεκριμένο κελί.
Θα το εκτιμούσα πάρα πολύ αν μπορούσε κάποιος να με βοηθήσει.

Υ.Γ.: Ο κώδικας που έχω χρησιμοποιήσει είναι ο παρακάτω:

Sub CreateSheetsFromList()
Dim ws As Worksheet, Ct As Long, c As Range
Set ws = Worksheets("ΠΡΟΤΥΠΟ")
Application.ScreenUpdating = False
For Each c In Sheets("ΕΠΙΛΟΓΗ").Range("K10:K30")
    If c.Value <> "" Then
        ws.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = c.Value
        Ct = Ct + 1
    End If
Next c
If Ct > 0 Then
    MsgBox Ct & " νέα αρχεία δημιουργήθηκαν για το τμήμα."
Else
    MsgBox "Δεν υπάρχουν μαθήματα στην λίστα."
End If
Application.ScreenUpdating = True
End Sub

Θα ανεβάσω και ένα μικρό δείγμα με τις θέσεις των κελιών που θέλω να ενημερωθούν.
Και πάλι ευχαριστώ πολύ.