Macro i excel til at vælde et range dynamisk

Jeg har fundet ud af det men

jeg ville gerne hvis man kunne kode således at det vandrette gennemløb lavede summerne automatisk kan det lade sig gøre ??

Sub p()
'
' p Makro

'
    ' Antal lodrette celler tælles
    antallodret = 0
    For Each C In Worksheets("Ark1").Range("A1:A1000")
    If C.Value <> "" Then
        antallodret = antallodret + 1
    End If
    Next C
   
    ' AntalVandretteceller tælles
    Antalvandret = 0
    For Each C In Worksheets("Ark1").Range("A1:IV1")
    If C.Value <> "" Then
        Antalvandret = Antalvandret + 1
    End If
    Next C
     
    'B Cellens sum tilføjes
    Cel = "B" & antallodret + 1
    Range(Cel).Select
   
    Cel = "B" & antallodret
    ActiveCell.Value = "=SUM(B2:" & Cel & ")"
   
    'C Cellens Sum tilføjes
    Cel = "C" & antallodret + 1
    Range(Cel).Select
   
    Cel = "C" & antallodret
    ActiveCell.Value = "=SUM(C2:" & Cel & ")"
   
    'D Cellens Sum tilføjes
    Cel = "D" & antallodret + 1
    Range(Cel).Select
   
    Cel = "D" & antallodret
    ActiveCell.Value = "=SUM(D2:" & Cel & ")"
End Sub

Prøv dette:

---------------------------
Public Sub BrugtOmraade()

Dim lastRow, lastCol, firstCol, firstRow As Integer
Dim omraade As Variant
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange

firstCol = myRange.Column
lastCol = myRange.Columns(myRange.Columns.Count).Column
firstRow = myRange.Row
lastRow = myRange.Rows(myRange.Rows.Count).Row

omraade = ActiveSheet.UsedRange.Columns(ActiveCell.Column).Address 'Column.EntireColumn.Address

MsgBox "Første brugte kolonne:  " & firstCol & vbCr _
      & "Sidste brugte række:    " & lastCol & vbCr _
      & "Første brugt række:      " & firstRow & vbCr _
      & "Sidste brugte række:    " & lastRow _
      & vbCr & vbCr _
      & "Område: " & omraade

End Sub
------------------

Kig også her...
http://j-walk.com/ss/excel/tips/tip13.htm

Ups..
Linien "'Column.EntireColumn.Address" kan slettes