Is there more than 1 row selected?

If rng.Rows.Count > 1 Then

Can you simply tell us what you want to achieve ? instead of showing a code that we have to fiddle with ?
gowflow

Sub ReRunLnZ()
   Dim rng
    Range("B" & (ActiveCell.Row)).Select  'select cell B of active row.
   
   'Add something to select cell B of however many rows are selected ...

    Set rng = Range(ActiveCell, ActiveCell.Offset(0, 5000))  'Select a lot to the right
    If rng.Rows.Count > 1 Then Exit Sub
    Range(Selection, rng).Select
    Selection.ClearContents

'  Reselect the rows column A that were cleared,  only Column A will have data in it.

    ActiveCell.Offset(0, -1).Select
    Application.Run "SIF_Creator.xlsm!GetMatlNumberFromCatCode"
End Sub

So in English

know matter what rows are selected, select cell B, of those rows, clear them from column B, to the right however many columns that data goes out.  Then end it by selecting Col A, of the original cells selected.

Hope that makes sense.  I do not care if one is selected or not at this point, it was only written to do one line at a time and I would like it to work for however many rows are selected.

what I meant to say is to clear them including cell B.

Let me rephrase what you said:

if rows selected are 14 to 17 (entire rows) then you want:

B14 to B17 to their extreme right say until col O there is data then it is B14:O17 to be cleared from data and you want the cursor to select A14.

and if say M20 is selected then you want B20 to extreme right say again O then it is clear B20 to O20 cleared from data and A20 is selected

is my interpretation correct ?
gowlfow

Sort of...  not entire rows..  if cells selected...  like H14 to H17.  Clear everything from B14 to B17 out to the right... like column BL (goes way out.).  After clear. Leave it then with A14 to A17 selected.

Of course this is an absolute example and I am looking for a dynamic one so whatever rows are selected to start, the same thing will happen for them as well.

ok noted and sorry for the delay due to timezone difference.

Here is the Main code for that (you create a Module and insert this code into the module like in the attached workbook. I have added a button so the way it works you select whatever part you want single cell or multiple whatever it is and then press on the button and see the results.

Here is the code

Sub SelectionClear(Target As Range)
Dim WS As Worksheet
Dim TopRow As Long, BotRow As Long, MaxCol As Long, I As Long, TmpCol As Long


Set WS = ActiveSheet
TopRow = Target.Row
BotRow = TopRow + Target.Rows.Count - 1
MaxCol = 2

For I = TopRow To BotRow
    TmpCol = WS.Cells(I, WS.Columns.Count).End(xlToLeft).Column
    If TmpCol > MaxCol Then MaxCol = TmpCol
Next I
WS.Range(WS.Cells(TopRow, "B"), WS.Cells(BotRow, MaxCol)).ClearContents
WS.Range(WS.Cells(TopRow, "A"), WS.Cells(BotRow, "A")).Select

End Sub

Select allOpen in new window

Let me know.
gowflow
SelectionClear.xlsm

This looks like it,  Need some time to test.  Thanks.

Ok...  Your sample workbook works fine.... however when I use this my procedure it fails it define:

TopRow = Target.Row
BotRow = TopRow + Target.Rows.Count - 1

Select allOpen in new window

 

Why does this work in your sample file and not when I pull it into another procedure?  What would stop TopRow from getting a value.  I am assuming the BotRow is not getting defined either?  Does not make sense.  Working on mocking up a sample file.

In the sample file, we should be able to selection two rows of data, and leave column A with data in it.  Select some rows and run Sub FetMatlNumberFromCatCode

See how it is stopping.  Any ideas?
SIF_Creator2.xlsm

I see that it is using a CommandButton?  Is there a way to use a Form Control instead of and ActiveX Control?  Is that why it is not working for me?

ok again delay due to timezone difference.

I created a Form button for you called Clear Before Surf (same Module as you created and put there a pres sub that will capture the selection you have made and with it, it will call the procedure SelectionClear).

Check it and let me know if this is what your looking for.

gowflow
SIF_Creator2-V01.xlsm

Ok.. look like it is working...  how come when I add it to another procedure using Call ClearBeforeSurf it returns a Compile Error:  Expected variable or procedure, not module.  In most others calling the procedure would work just fine.  Any ideas?

Also if I use Call SelectionClear it errors to with:  Compile error:  Argument not optional.  I am trying to run this at the very beginning of mod  GetMatlNumberFromCatCode()

Instead of running them as two separate buttons, one to clear and another the gather data, because are after the area is cleared I run GetMatlNumberFromCatCode()

Minor request to add?  After the clear, is there a way to remove any background colors?  While I gather data I color some rows when errors are found in SAP.  When clearing it would be nice to have them back to a truly cleared state..   Would really appreciate that add.

Sorry, as I was thinking of things I just posted, next time I will edit the post... and add.

It looks like this will work.  The only thing is when it clears the color it is only clearing it on Col B,  I was hoping that it could clear it way off to the right on cell out there too?  No need to clear color or comment from Col A.  That would be awesome..

Say this again ???

We are clearing data from Col B and off to maximum right same as we are doing for colors !!!
We are not clearing colors from Col A !!!

check your end again
gowflow

Excellent!!!!   Thanks you so much...  the colors not clearing is an on/off thing and I have not pinned down why it is on some and not on others.  We can live with the colors, it actual can flag the one that failed and then were fixed.  Appreciate the help.  I would give you 2500 pts as there are about 5 questions mix in the thread.

No problem your welcome.

I will be happy if you can post a new question where we can tackle the colors but you will need to give me an example and tell me what is not working and will be glad to assist. Never leave any issue unresolved !!!

If you decide to go along with this path please post here a link to the new question and will be glad to assist.

Regards
gowflow

It was actually better to leave the color there... it flagged the number of rows that had to be fixed, so it ended up helping to keep it there.  Thanks for the extended offer to assist.