MACRO - SAMMENTÆLLING ?

Find antal rækker i den aktuelle kolonne og indsæt en formel:

F.eks. hvis kolonne A

Sub beregnSum()
Dim antalRækker As Integer
Const totalSUM = "=Sum(A1:A"
    Range("A1").Activate
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    Range("A" & antalRækker + 1).Formula = totalSUM & CStr(antalRækker) & ")"
End Sub

Ja

Sætter Autosum nederst i H:J  (8 To 10)
Start i række 1 kan ændres:      Cells(1, i)

Tak for jeres svar men er ikke sikker på hvor / hvordan jeg skal indsætte koden, den ser sådan ud i min test macro

Sub )
'
' test Makro
'
' Genvejstast:Ctrl+a
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\temp\Reservation_List.csv", Destination:=Range _
        ("$A$1"))
        .Name = "Reservation_List"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("B16").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("B16").Select
    Selection.AutoFill Destination:=Range("B16:D16"), Type:=xlFillDefault
    Range("B16:D16").Select
    Range("E16").Select
End Sub

Du kan kopiere hele koden, og indsætte den som en selvstændig makro.
Du skal tilrette den, til de kolonner det omhandler.

Den kan evt. køres til sidst i din makro, ved at tilføje:
Call AutoSum før sidste
End Sub

ok så tester jeg at kopiere den som sin egen kode...
Betyder det så at jeg skal have 2 mackroer oprettet hvor jeg så indsætter som du skriver Call AutoSum før sidste
End Sub = den så køre den anden macro eller kan jeg have det hele stående i en macro, ved ikke om jeg forklare det helt "sort" håber at du / i bære over med mig :o)

I hvilke kolonner skal der indsættes Autosum?

Ja, hvis din kode er ok, køres Sub AutoSum() til sidst :-) som beskrevet.

Sub DinKode()

        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("B16").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("B16").Select
    Selection.AutoFill Destination:=Range("B16:D16"), Type:=xlFillDefault
    Range("B16:D16").Select
    Range("E16").Select
Call AutoSum
End Sub

Sub AutoSum()
    Dim i As Integer

    For i = 8 To 10
    With Cells(Rows.Count, i).End(xlUp)
        .Offset(1).Formula = "=SUM(" & Cells(1, i).Address & ":" & .Address(0, 0) & ")"
    End With
    Next

End Sub

AutoSum()

Sætter Autosum nederst i H:J

Fra H1 til sidste række
Fra I1 til sidste række
Fra J1 til sidste række

Det er altid kollone B+C+D som der skal autosammentælles i men som beskrevet øverst, så er der forskelle på rækkeantallet fra fil til fil som jeg køre min macro på.....

Så ret til:

For i = 2 To 4

Hej Morten...

Super det virker præcist efter hensigten... smid et svar til point..

Kommer her ;-)