Macro for autofilling until the last row in another column.

Hi all,

I have a "challenge". I want to autofill a couple of rows (B:D) depending in the amount of rows filled in column A. I want the MACRO to automatically know until which row it should autofill. How do I incorporate that in this Macro? Hope you can help!

Code so far:

Please Login or Register  to view this content.

(The autofilling works but as you can see it's a bit of a quick and dirty solution since it simply slams through until row 30000.)

Thanks!