Hi all

Have used these sorts of macro's before just by recording and then editing slightly but the one below just deletes the whole sheet.

I have a lot of data copied from another application. I paste into sheet1.

I need to delete column 1, columns V,W,X then Rows 1-5

Then go to sheet 2 copy some field headers, paste back at top of data sheet1.

Here is the code

Sub Macro1()
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("V1").Select
Columns("V:X").Select
Selection.Delete Shift:=xlToLeft
Rows("1:5").Select
Selection.Delete Shift:=xlUp
Sheets("Sheet2").Select
Range("A1:AD1").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1:AD1").Select
ActiveSheet.Paste
End Sub

After the first column delete the whole sheet 1 seems to get selected then deleted instead of columns V-X?

Any help appreciated, thanks