expression.saveas
Rows(1).select
Selection.delete
Range("A1").select
.save
But simple Go on développer tab (file/option/ribbon if you do not Sée IT already), click record macro and male those action. Hou then click macro, Go on edit and Read the codes (or run it for reproduction)