Find dags dato, ryk til dags dato i kolone x.

Hej. Jeg har omdesignet et regneark for en ven, og i dette regneark var følgende stump kode, formålet med koden vil være at finde dags dato, hvis den eks. er d. 30, rykker den frem til det felt i række 5, hvor der står 30. Dette gør at hvis man har et ark hvor dagene i omsætning står fra venstre mod højre og række fem indeholder tallene fra 1-31, vil excel automatisk rykke frem til dags dato, ved aktivering af nedenstående makro. Rimelig fix men jeg kan ikke få det til at virke, hvis nogen forstå nedenstående må i gerne sige til, så kan jeg evt. forklare yderlige.

"Sub DagsDato_Salgsklar()
    Application.Goto Reference:="Birgitte"
    Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
    ActiveWindow.LargeScroll Down:=1
    ActiveCell.Offset(9, 0).Range("A1").Select
End Sub