Private Function data As Boolean
   Dim Avg_velocity  As String
   Dim Avg_length As String
   Avg_velocity  = Application.WorksheetFunction.Average(Sheets("Data").Range("K5:K650"))
   Avg_length  = Application.WorksheetFunction.Average(Sheets("Data").Range("I7:I607"))

   Sheets("Log").Range("A2:AI2").Insert
   Sheets("Log").Cells(2, "AA").value = Avg_velocity
   Sheets("Log").Cells(2, "AB").value = Avg_length
End Function