Uitbreiden VBA voor Excel 2003

[ROSO]

Kan iemand mij helpen met het volgende.

Ik gebruik de onderstaande code om kolommen te totaliseren.
Code werkt goed, ik zou, graag aan toe willen voegen.
Op de Rij waar de som (Kolom F) komt, (op de zelfde Rij) in Kolom A , de letter "S" geplaatst wordt.

vb:
A ------------------------------------------------------------------------------F
---------------------------------------------------------------------------------1
-------------------------------------------------------------------------------- 2
"S" --------------------------------------------------------------------------- (som)

Ik hoop dat ik een beetje duidelijk ben, anders hoor ik wel van jullie.

Alvast bedankt.

For Each ar In Columns(6).SpecialCells(2).Areas
    With ar.Resize(1).Offset(ar.Cells.Count)
      .Value = "=sum(" & ar.Address(, False) & ")"
          End With