autofill until adjacent cell empty

Hello

I m looking for a vba that fill Column B with copies of Adjacent cells form Column A, the copying should stop when Cell in Column A is empty

Thanks