Your code works fine for me as written. Two observations.
Is the reason you are saying these lines of code are the source of the
error, is because they are highlighted when you select debug?
Second; it is rarely if ever necessary to select things in order to
work with them in VBA.
Your code:
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
Can be reduced to:
Columns("H:I").Delete Shift:=xlToLeft
and work better.

I might suggest that you post your entire code so the experts here can
help you. I'm not one of those experts by the way, I'm just trying to
help you as far as I can.

HTH


--
Casey


------------------------------------------------------------------------
Casey's Profile: http://www.excelforum.com/member.php...fo&userid=4545
View this thread: http://www.excelforum.com/showthread...hreadid=557353