Hallo Richard,

etwas waage Deine Angaben. Ich gehe mal davon aus, dass Du mit freigegebenen Zellen Zellen meinst, die nicht gesperrt sind, wenn der Blattschutz aktiv.
Nachfolgend ein Makro, dass in einem Bereich, hier A1 bis E10, die Zellen überprüft. Sind die Zellen nicht gesperrt, wird der Wert in das Tabellenblatt "Tabelle2" in die gleiche Zellenposition kopiert.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Copy()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range("A1:E10")
    If rng.Locked = False Then
        rng.Copy
        Sheets("Tabelle2").Cells(rng.Row, rng.Column).PasteSpecial Paste:=xlPasteValues
    End If
Next
End Sub

In obigen Makro werden nur die Werte kopiert. Sollen auch Formate mitkopiert werden, so muss in der Zeile

Sheets("Tabelle2").Cells(rng.Row, rng.Column).PasteSpecial Paste:=xlPasteValues

der Text Paste:=xlPasteValues gelöscht werden.
Die Angabe des Bereiches änderst Du in der Zeile

For Each rng In Range("A1:E10")

Hier nur A1:E10 gegen den Bereich, den es betriefft ändern.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in
der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}