You can avoid the Workbook and sheetname..

With ActiveWorkbook.Sheets("Sheet1")
..Rows(1).Delete
..Columns(1).Delete
..Columns("D:D").Cut
..Columns("A:A").Insert Shift:=xlToRight
End With

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

When you record a macro ;each single action is recorded....the below code
does the same 3 actions///

Sheets("Sheet1").Rows(1).Delete
Sheets("Sheet1").Columns(1).Delete
Columns("A:A").Insert Shift:=xlToRight



If this post helps click Yes
---------------
Jacob Skaria


"Sal" wrote:

Is there a better way to delete row 1 in Sheet1 than this

Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select

Is there a better way to delete Column B in Sheet1 than this?

Sheets("Sheet1").Select
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft

Is there a better way using Sheet1, to Cut Column D and paste the cut cells
in front of Column A than this?
Sheets("Sheet1").Select
Columns("D:D").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight