While I'm not sure exactly what you mean by "creating columns  dynamically", if all you're trying to do is delete  the column  you could do it with the following code. Just change the column letter to reflect which column you're trying to delete.

Range("a1").entirecolumn.delete

If you're just trying to delete the data, but leave the column itself so as not to mess up formulas:

range("a1").entirecolumn.clearcontents
Worksheets("Sheet1").Columns("A").Hidden = True (Assuming you want to hide the empty column)

Hopefully that helps you out

Thanks for your reply. I worked on it and it is working fine.