Wert in Zeile einfrieren

Sub Zeile14_einfrieren()
Monat_einfrieren "Tabelle1", "Grafikdaten"
End Sub

Function Monat_einfrieren(Ziel As String, Quelle As String)
Dim lastrow As Long
Dim Spalte As Long, lastColumn As Long
Dim strMonat As String
Dim wsZiel As Worksheet
Set wsZiel = Worksheets(Ziel)
strMonat = Worksheets(Quelle).Range("O33")
With Worksheets(Ziel)
If MsgBox("Daten für Monat """ & strMonat & """ in Tabellenblatt """ & .Name & """  _
einfrieren?", vbQuestion + vbOKCancel, "Monatsdaten einfrieren") = vbCancel Then Exit Function
lastColumn = .Cells(7, .Columns.Count).End(xlToLeft).Column 'Monate in Zeile 7
Application.ScreenUpdating = False
For Spalte = 2 To lastColumn
If Left(.Cells(7, Spalte), Len(strMonat)) = strMonat Then 'Monate in Zeile 7
lastrow = .Cells(.Rows.Count, Spalte).End(xlUp).Row
If lastrow > 4 Then
With .Range(.Cells(14, Spalte), .Cells(14, Spalte).End(xlUp)) 'Zeile
.Value = .Value
End With
End If
End If
Next
Application.ScreenUpdating = True
End With
End Function