markøren retur efter makro

indsæt denne sidst i koden
cells(1,1).select

Din makro kan tilføjes hvilken celle den skal returnere i efter endt kørsel.
Tilføj flg. i din makro før "End Sub"
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
I "Range" kan du angive hvilken celle du ønsker at returnere i.
/Be_Nice

Hej igen og tak for de hurtige svar
Men mit problem er at jeg ikke ved hvor jeg skal retunere til:
Skal indtaste i Range("A1:A40").Makroen kører efter hver indtastning.
Indtastning A1 > makro > retur A1 el.A2
Indtastning A2 > makro > retur A2 el. A3
mvh. Lars

må vi se koden

Hvis makroen kører efter hver indtastning (sub worksheet_change) kan du nederst i koden skrive:

Target.select

Hej igen
Her er min kode,som i sikkert kan se er jeg ikke einstein til VBA.
Har brug for at indsætte en pause i makro1  kan man det?
Makøren retur efter macro1?

Private Sub Worksheet_Calculate()
If Range("AR19") <> Range("AT19") Then
callsub:    Makro1
ElseIf Range("AR19") = Range("AT19") Then
End If
End Sub

Sub Makro1()
    Range("AQ5:AR18").Select
    Selection.Copy
    Range("AQ20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AQ20:AR33").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("AR20"), Order1:=xlAscending, Key2:=Range( _
        "AQ20"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Selection.Sort Key1:=Range("AR20"), Order1:=xlDescending, Key2:=Range( _
        "AQ20"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    '''''''''''''''''''''''''''''''''''?????????kan man indsætte en pause her??????? ''''''''''''''''''''''''''''''''''
    Range("AR19").Select
    Selection.Copy
    Range("AT19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      Application.CutCopyMode = False
    End Sub
mvh.
Lars

Private Sub Worksheet_Calculate()
If Range("AR19") <> Range("AT19") Then
adr = ActiveCell.Address
callsub:    Makro1
ElseIf Range("AR19") = Range("AT19") Then
End If
Range(adr).Select
End Sub


5 sek. pause
Application.Wait (Now + TimeValue("0:00:5"))

super excelent
Jeg har ændret min macro,kører den nu manuelt,alt virker som det skal,
makøren retunere  som den skal.smid et svar for point.
Min Private Sub Worksheet_Calculate()er ikke god,den går i selvsving engang imellem
ny makro:
Sub Makro1()
    adr = ActiveCell.Address
    Range("AQ5:AR18").Select
    Selection.Copy
    Range("AQ20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AQ20:AR33").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("AR20"), Order1:=xlAscending, Key2:=Range( _
        "AQ20"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Selection.Sort Key1:=Range("AR20"), Order1:=xlDescending, Key2:=Range( _
        "AQ20"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("AR19").Select
    Selection.Copy
    Range("AT19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      Application.CutCopyMode = False
      Range(adr).Select
      End Sub
mvh.
Lars

din makro kan kortes ned til det her og den aktive celle vil ikke ændres

Sub Makro1()

    Dim rng1 As Range
    Set rng1 = Range("AQ20:AR33")
    rng1.Value = Range("AQ5:AR18").Value

    rng1.Sort Key1:=Range("AR20"), Order1:=xlDescending, Key2:=Range( _
              "AQ20"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
              False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

    Range("AT19").Value = Range("AR19").Value

End Sub

Super bak
Så kom der turbo på makroen.
Ny makro trigger:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E17:E24")) Is Nothing Then
callsub:    Makro1
End If
End Sub

Fundet her http://www.eksperten.dk/spm/550631
Igen tak super bak
Bak/Excelent smid svar for point(først til mølle eller kan i dele?)
Mange tak for hjælpen
Lars

Nu ved jeg ikke om mit indlæg løste noget, eller om bak's klarede det hele ?

excellent --> Dit indlæg løste problemet. Jeg udbyggede kun :-)
Points til excellent.

ok ellers deler jeg gerne med bak :-)

Tak for hjælpen
Lars