Kod altta.
Private Sub UserForm_Initialize() buraya

If LCase(ActiveSheet.Name) = "sayfa1" Or LCase(ActiveSheet.Name) = "liste" Or LCase(ActiveSheet.Name) = "şablon" Then

    ListBox1.Clear

    Exit Sub

End If

If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var

alttoplamAl

var:

yukarıdakileri ekledim.

ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1

yerinede

ListBox1.RowSource = "A7:K" & [D65536].End(3).Row + 1

olarak değiştirdim.

Sub alttoplamAl()

    

    With ActiveSheet

        .Unprotect 4455

        son = .Range("A" & Rows.Count).End(3).Row + 1

        .Range("A" & son & ":K" & Rows.Count).ClearContents

        .Range("D" & son + 1) = "TOPLAMLAR"

        son = .Range("D" & Rows.Count).End(3).Row

        .Range("E" & son) = WorksheetFunction.Sum(.Range("E7:E65536"))

        .Range("F" & son) = WorksheetFunction.Sum(.Range("F7:F65536"))

        .Range("J" & son) = WorksheetFunction.Sum(.Range("J7:J65536"))

        .Range("K" & son) = WorksheetFunction.Sum(.Range("K7:K65536"))

        .Range("D7:K" & Rows.Count).Interior.ColorIndex = xlNone

        .Range("D" & son & ":K" & son).Interior.ColorIndex = 4

        .Range("D" & son).HorizontalAlignment = xlRight

        .Range("D7:K" & Rows.Count).Font.Bold = False

        .Range("D" & son & ":K" & son).Font.Bold = True

        .Protect 4455

    End With

  

End Sub