Auto skjul tomme rækker frem til første fyldte velle med VBA

Hej.

Jeg skal bruge en funktion der automatisk skjuler x antal celler.

Jeg ved at jeg skal skjule fra E1 til første celle der er er udfyldt minus en.
Så hvis den første celle der er data i er celle M1 så skal der skjulle fra E til L (en celle foran den med data er)

Følgende funktion kan bruges til at finde den første celle der er udfyldt:
With Rows("1")
    .Find(what:="*", after:=.Cells(1, 1), LookIn:=xlFormulas).Activate
End With

Men hvordan får jeg skjult frem til den celle der er fyldt?

På forhånd tak.