Offset to move content with inputbox

Hello Forum,

I work with a VBA code intended to move the content of each cell with bold font in a given range (column), to the previous column, same row:

Please Login or Register  to view this content.

First, I would like users to enter the column number rather than select a range with the Type 8 inputbox since mistakes may occur (users select 2 columns at a time for example). The last row would be the 5000th.

Second, I would like users to enter the column to which the content should be moved. I can't figure how to do this since Offset doesn't work with a column number.

Unfortunately, my knowledge of the VBA mysteries doesn't go that far...

Can anyone help me?

Thank you so much in advance.

How about

Please Login or Register  to view this content.

Hello Mumps1,

I was assuming from row 2 to 5000. But if you can throw an inputbox for them as well, then I'm in

Thank you.

Start column is the column you want to move & end column is where you want to place it.
So if the data is in col H & you want to move it 1 column left (ie G) you would use 8 and then 7

You're welcome & thanks for the feedback.

If the column will not always have 5000 rows you can use

Please Login or Register  to view this content.