Problem with loop

[walid66]

I have this code it works fine but when I try to run the macro again the data does not copy to second line it replaces see attached file.
Basically I want the macro to run, sum and average the data on monthly report tab and copy the last row to final result tab. If row two has data on the final result tab then it should paste the data into the third row on the second run so on.

Thanks

Sub FindFinalResult()
Application.ScreenUpdating = False
  Dim LastCol As Long
  Dim Rng As Range
  Dim RowNo As Long
  Dim Found As Range
  i = 2
            While Worksheets("Monthly_Report").Cells(i, 1) <> ""
             
             i = i + 1
            Wend
               If Worksheets("Monthly_Report").Cells((i - 1), 1) = Date Then
                GoTo line1
               End If
    
            i = 2
            Do While Worksheets("Monthly_Report").Cells(i, 1) <> ""
                Totla_Seizures = Totla_Seizures + Worksheets("Monthly_Report").Cells(i, 2)
                NoBlock_Call = NoBlock_Call + Worksheets("Monthly_Report").Cells(i, 3)
                PerBlock_Call = Application.WorksheetFunction.Average(Worksheets("Monthly_Report").Cells(i, 4))
                NoSuccess_Call = NoSuccess_Call + Worksheets("Monthly_Report").Cells(i, 5)
                PerSuccess_Call = Application.WorksheetFunction.Average(Worksheets("Monthly_Report").Cells(i, 6))
                NoDropped_Call = Application.WorksheetFunction.Average(Worksheets("Monthly_Report").Cells(i, 7))
                PerDropped_Call = PerDropped_Call + Worksheets("Monthly_Report").Cells(i, 8)
                Daily_MOU = Daily_MOU + Worksheets("Monthly_Report").Cells(i, 9)
                
            i = i + 1
            Loop

                Worksheets("Monthly_Report").Cells(i, 2) = Totla_Seizures
                Worksheets("Monthly_Report").Cells(i, 3) = NoBlock_Call
                Worksheets("Monthly_Report").Cells(i, 4) = PerBlock_Call
                Worksheets("Monthly_Report").Cells(i, 5) = NoSuccess_Call
                Worksheets("Monthly_Report").Cells(i, 6) = PerSuccess_Call
                Worksheets("Monthly_Report").Cells(i, 7) = NoDropped_Call
                Worksheets("Monthly_Report").Cells(i, 8) = PerDropped_Call
                Worksheets("Monthly_Report").Cells(i, 9) = Daily_MOU
                Worksheets("Monthly_Report").Cells(i, 1) = Date
                Worksheets("Monthly_Report").Cells(i, 1).Select
                Range(Selection, Selection.End(xlToRight)).Select
                Selection.Copy
                    Worksheets("Final_Report").Activate
                    j = 2
 
                                Cells(j, 1).Select
                                ActiveSheet.Paste
line1:
End Sub