Makro hjælp

Har denne makro, som henter en andet regneark. Det virker fint. jeg vil dog gerne have den ændring, at den kan sætte dataene ind, selvom regnearket ikke hedder "testkalk". Det kan måske være den hedder "777", og så skal den smide dataene ind i den.

Makro pt:

Sub Makro16()
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open FileName:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, UpdateLinks:=3
    Sheets(1).Activate
    Rows("3:58").Select
    Selection.Copy Destination:=Workbooks("Testkalk.xls").Sheets(1).Range("A12")
    ThisWorkbook.Activate
    Sheets(1).Rows("12:67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.ScreenUpdating = True
End Sub