Copy cell and fill right and down until next highlighted cell?

I'm looking for a VBA code to copy cell "B2" and fill right and down (selected in the picture below) on a sheet change event at "A1"

It's really bad and doesn't work but here my try:

Please Login or Register  to view this content.

gHTPe.png

I am not clear on what range is being filled. Are you filling the select cells? Or are you filling blank cells down to the first non-blank cell in Column B and to the last filled cell in Row 1?

I want to copy whatever the value/formula in "B2" to "B2:D5"

First column is "B1", last column is "B2" to right until next empty cell (something like End(xlToRight)
First row is "B2" last row is "B2" down to next highlighted cell

Just try [B2].Copy [B2:D5] …