Sub Macro_to_go_to_top()
    ActiveSheet.Range("A1").Select
End Sub
works for back to top of active sheet.