Kopiere data til tomme celler i samme række

Prøv at sætte denne kode ind i et modul i VBA. Placer dig i den ønskede celle og afspil macroen (Alt+F8)

Sub Udfyldrække()
    With Selection
        .AutoFill Destination:=Range(Cells(.Row, .Column), Cells(.Row, .End(xlToRight).Column - 2)), Type:=xlFillDefault
    End With
End Sub

Det virker næsten perfekt. Er det muligt, at efter man efter macroen har kørt "står" i den sidste tomme celle før der kommer et andet tal? Altså hvis man skal kopiere tallet fra A1, og der står et nyt tal i N1, så skal cellen M1 markeres efter macroen har kørt.

Sådan :o)

Sub Udfyldrække()
    With Selection
        .AutoFill Destination:=Range(Cells(.Row, .Column), Cells(.Row, .End(xlToRight).Column - 2)), Type:=xlFillDefault
        Cells(.Row, .End(xlToRight).Column + 1).Select
    End With
End Sub

Øv. opdagede lige et nyt problem hvis man kommer til at aktivere macroen, hvor der kun er et tomt felt melder den fejl og åber VBA.
Kan man ikke lave noget lign dette.

Sub Udfyldrække()
If Cells(de næste 2 celler) =0 Then
    With Selection
        .AutoFill Destination:=Range(Cells(.Row, .Column), Cells(.Row, .End(xlToRight).Column - 2)), Type:=xlFillDefault
        Cells(.Row, .End(xlToRight).Column + 1).Select
    End With
End Sub

Men hvordan er det lige man får den til at "se" på de næste  2 celler i den samme række?

Jeg ved godt, at jeg er besværlig, men arket skal bruges af mange forskellige brugere, der ved minder en VBA end mig.

Søren

Jeg har selv fået løst problemet, og den brugbare kode ser således ud:

Sub Udfyld_række()
    If ActiveCell.Next = 0 Then
          With Selection
        .AutoFill Destination:=Range(Cells(.Row, .Column), Cells(.Row, .End(xlToRight).Column - 2)), Type:=xlFillDefault
        Cells(.Row, .End(xlToRight).Column + 1).Select
    End With
    End If
End Sub
Takker for hjælpen

Godt at se, at du lige fik klaret den sidste forhindring - Takker for point :o)