Zdravim potrebuju pomoct s jednim kodem VBA

Tento kod hleda v radkach 9 dnesni datum ale ja bych to potreboval zmenit aby hledal datum z listu START bunky C11
Jde to nejak upravit?

Sub Kopiruj_Click()

Dim SH As Worksheet, Stlpec As Integer, Meno As String

On Error Resume Next

For Each SH In Worksheets

With SH

Meno = .Name

If InStr(1, Meno, “FINAL”) > 0 And Meno “FINAL” Then

Stlpec = WorksheetFunction.Match(CDbl(Date), .Rows(9), 0)

If Err = 0 Then

With .Cells(9, Stlpec).Resize(.Cells(Rows.Count, Stlpec).End(xlUp).Row – 8)

.Value = .Value

End With

Else

Err.Clear

End If

End If

End With

Next SH

End Sub