Hi Greg

If you want a macro rather than click and drag, try this in a module:

Sub MoveSheet()
ActiveSheet.Move After:=Sheets(Sheets.Count)
End Sub

Regards

Steve