Макросы вставки строки снизу в таблице Excel

Type TTN
Cod As String * 20
Pynkt As String * 20
Nazv As String * 20
Kolvo As Integer
Cena As Single
End Type
Sub SummaTTN()
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
 
Dim Total
Dim Kremlin As TTN
    
    For R = 2 To LastRow
 
 
Kremlin.Kolvo = Cells(R, 4)
Kremlin.Cena = Cells(R, 5)
Total = Kremlin.Kolvo * Kremlin.Cena
        
    MsgBox ("Сумма документа: " & Total)
 
 
 
End Sub

Private Type TTN
Cod As String * 20
Pynkt As String * 20
Nazv As String * 20
Kolvo As Integer
Cena As Single
End Type
Sub SummaTTN()
 
 
Dim Total
Dim T As TTN
    With T
    .Kolvo = Cells(D2, D3, D4)
    .Cena = Cells(E2, E3, E4)
    End With
    
Total = T.Kolvo * T.Cena
        
    MsgBox ("Ñóììà äîêóìåíòà: " & Total)
 
 
 
End Sub

Private Type TTN
Cod As String * 20
Pynkt As String * 20
Nazv As String * 20
Kolvo As Integer
Cena As Single
End Type
Sub SummaTTN()
 
 
Dim Total
Dim T As TTN
    With T
    .Kolvo = Cells(R, 4)
    .Cena = Cells(R, 5)
    End With
    
Total = T.Kolvo * T.Cena
        
    MsgBox ("Ñóììà äîêóìåíòà: " & Total)
 
 
 
End Sub

Private Type TTN
Cod As String * 20
Pynkt As String * 20
Nazv As String * 20
Kolvo As Integer
Cena As Single
End Type
 
 
 
Sub SummaTTN()
 
Dim A As Range
Set A = Worksheets("Ëèñò1").Range("D2:D4")
Dim C As Range
Set C = Worksheets("Ëèñò1").Range("E2:E4")
 
Dim Total
Dim T As TTN
    With T
    .Kolvo = A
    .Cena = C
    End With
    
Total = T.Kolvo * T.Cena
 
        
    MsgBox ("Ñóììà äîêóìåíòà: " & Total)
 
 
End Sub

Total = T.Kolvo * T.Cena

Sub SummaTTN()
Dim LastRow, R
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
Dim Total
Dim Tot
Dim Kremlin() As TTN
ReDim Kremlin(1 To LastRow)
    
    For R = 1 To LastRow
            Kremlin(R).Cod = Cells(R, 1)
            Kremlin(R).Pynkt = Cells(R, 2)
            Kremlin(R).Nazv = Cells(R, 3)
        If R >= 2 Then
            Kremlin(R).Kolvo = Cells(R, 4)
            Kremlin(R).Cena = Cells(R, 5)
            Total = Total + Kremlin(R).Kolvo * Kremlin(R).Cena
            Tot = Tot + Kremlin(R).Kolvo
        End If
    Next R
    MsgBox "Сумма документа: " & Total
    MsgBox "Кол-во документа: " & Tot
    MsgBox "Средняя цена документа: " & Total / Tot
End Sub

Sub tt()
    Dim c As Range
    Dim Total
    Dim Tot
 
    For Each c In ActiveSheet.UsedRange.Columns(4).Cells
        If IsNumeric(c) Then
            Total = Total + c * c.Offset(, 1)
            Tot = Tot + c
        End If
    Next
    MsgBox "Сумма документа: " & Total
    MsgBox "Кол-во документа: " & Tot
    MsgBox "Средняя цена документа: " & Total / Tot
 
End Sub