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