change Mycell.clear in code

[redspanna]

Hi all

This code looks for a string value in certain column, copies the values then clears cells

Set Mycell = Sheets("Sorted Data").Range("A:A").Find(What:="*ASDASTORESPLC*") 'salary
While Not Mycell Is Nothing
Mycell.Offset(0, 1).Copy Range("C65536").End(xlUp)(2)
Mycell.Clear
Set Mycell = Range("A:A").FindNext
Wend

can someone advise how to change the code slightly so that the

Mycell.Clear

part, actually clears the values in both column A and B once required data found and copied

thanks in advance

 

[gallen]

This will also clear the cell to the immediate right of Mycell

Mycell.Offset(0,1).Clear

 

[Fluff]

Maybe

MyCell.Resize(,2).Clear

 

[redspanna]

Great, thanks a lot

 

[Fluff]

You're welcome & thanks for the feedback