Excel – Hücre değerlerini topla ve birleştir

Sum cells and merge 

Toplam = 0
    For i = 1 To Selection.Rows.Count
      Toplam = Toplam + Selection.Cells(i, 1)
      Selection.Cells(i, 1).Clear
    Next i
    With Selection
        .Merge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Cells(1, 1) = Toplam