Code deletes old data if I run F8 but not when I press button

[RAJESH1960]

Hello guys,
Weird it seems but this is happening. When I generate xml the first time, it works perfectly. But the next time when the rows are less than the first time, the code doesn't erase the old data in the Master data sheet. This happens when I run the code with the button.
I ran the code with F8 to check which line needs to be edited. But mysteriously, the code worked perfectly.
First press Generate Master XML and run the code, check the masterdata sheet. Now delete the rows from 11 to end in the paste data sheet and run again. You will see that the master data sheet data is not fully deleted after row 24.
once again using F8 if you run the generate master xml code it will be fully deleted.
I hope I have made it clear what the problem is.
F8 working button not working.xlsm

 

[RAJESH1960]

I have found the problem but I do not know how to edit the code.

With Sheets("MasterData")
        .Range("B2:E2", .Range("B2:E2").End(xlDown)).ClearContents
        .Range("F2:I" & Cells(Rows.Count, 6).End(xlUp).Row).ClearContents
    End With

What is & Cells(Rows.Count, 6).End(xlUp).Row)...??

 

[johnnyL]

Whose code is that in that section? It's not mine, I can tell, by the way it is written, & it wasn't commented.

 

[RAJESH1960]

.Range("B2:E2", .Range("B2:E2").End(xlDown)).ClearContents

I changed the above range to B2:I2 and commented the second line, but still it is not working. XlDown is working only till the first empty row and not after that.

Whose code is that in that section? It's not mine, I can tell, by the way it is written, & it wasn't commented.

You had edited some part of the code which you had not written.

 

[RAJESH1960]

There is an empty column in the master data sheet column A. With the help of a code, If you fill that column with numbers against the particulars column then hopefully this will work after editing this line from

.Range("B2:E2", .Range("B2:E2").End(xlDown)).ClearContents

to

.Range("A2:I2", .Range("A2:I2").End(xlDown)).ClearContents

 

[johnnyL]

To clear the 'Master Data' sheet data, replace:

    With Sheets("MasterData")
        .Range("B2:E2", .Range("B2:E2").End(xlDown)).ClearContents
        .Range("F2:I" & Cells(Rows.Count, 6).End(xlUp).Row).ClearContents
    End With

with:

    Sheets("MasterData").Range("B2:I" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents            ' Erase all but the header row on MasterData sheet

 

[RAJESH1960]

It worked. But I still don't understand how it counted the empty row in Column B. Alittle explanation will help me to understand.

 

[RAJESH1960]

Range("B" & Rows.Count)

Does this select column B till the last row in the sheet and then XlUp means it will go up till the last row with data.?

 

[johnnyL]

Yes, doesn't actually select it, but it looks at that column.

 

[RAJESH1960]

Just a second, Checking the original data for the 4th time. Seems it is not working here. Will let you know in sometime.