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
Bookmarks