Solved: Extend selection to next three cells

[afzalw]

I have selected the last cell in a column after A21 and I want to select next 3 cells in the selected ROW and clear the content from it.

Thanks

ThisWorkbook.Sheets(1).Range("A21").End(xlDown).Select

[afzalw]

I made it, this is the correct code

ThisWorkbook.Sheets(1).Range("A21").End(xlDown).Select
Selection.Resize(Selection.Rows.Count, Selection.Columns.Count + 3).ClearContents

[snb]

or


ThisWorkbook.Sheets(1).Range("A21").End(xlDown).resize(,3).clearcontents