In diesem Beispiel wird Sheet1 hinter Sheet3 in der aktiven Arbeitsmappe verschoben.
Worksheets("Sheet1").Move _ after:=Worksheets("Sheet3")