macro to shift data to the right

[Howardc1001]

I have text "Share" in Col B

i need to shift the data in Col A to the right that is one column below "Share" and to include 4 rows below this

I have the following code below but need it amended to incorporate the above

Your assistance in this regard is most appreciated

Please Login or Register  to view this content.

[Bernie Deitrick]

If Sheet1 is what you start with, and you want Sheet2 as the end, then try this, while Sheet1 is the active sheet:

Please Login or Register  to view this content.

[Howardc1001]

Many Thanks Bernie. Code works perfectly