Autosum i makro

Det er vel ikke noget problem at henvisningerne til cellerne er relativ...

Når du ved Hvilke celler der skal summeres over, og i hvilken celle summen skal udregnes, kan du jo sætte sum-formelen ind der med din macro...

Fx;

Du har tal fra celle A2 til Celle A17, og vil udregne summen i A18:

    Dim AntalRækker As Integer
    Range("A1").Select
    Selection.End(xlDown).Select 'Finder nederste celle
    AntalRækker = ActiveCell.Row
    Cells(ActiveCell.Row + 1, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-" & AntalRækker & "]C:R[-1]C)"

Bemærk, at tallet 17 ikke indgår koden - denne macro virker altså UANSET om du har tal til A17 eller til A1000 eller ...

Er det det du spørger om, eller?

PS: Ovenstående virker fra A1 til A???, og ikke fra A2 som  jeg skrev. Det kan dug ændres til det du måtte ønske

Jeg løste denne opgave med offset og indsættelse af blanke linier. Herefter kunne jeg bruge navigering til øverste og nederste række i det område jeg ville summe.