Sub edit_sheetmove()
	Sheets("Sheet1").Move After:=Sheets(3)
	'Sheet1を4番目に移動させます。
End Sub

Sub edit sheetcopy()
	Sheets("Sheet2").Copy Before:=Sheets(3)
	'Sheet2を3番目にコピーを作成します。
End Sub

末尾に移動させる場合には
i = WorkSheets.Count
などででシート数を取得する必要があります