VBA AutoFill Dynamic Range

Hello

I believe I have a fairly simple request, see attached:

Capture.PNG

I'm trying to get a code that will autofill cell B1 down to the last adjacent data on its left, in this case down to B9. When I record these steps unfortunately, the fill range does not adjust w/ a growing database and will only fill to B9, even if data in column A increases to say A15

thanks!

Solution verified, thanks YasserKhalil