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

[VBA]ThisWorkbook.Sheets(1).Range("A21").End(xlDown).Select[/VBA]

[afzalw]

I made it, this is the correct code

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

[snb]

or

[VBA]

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

[/VBA]