VBA Sum Dynamic Range

Sub hsv_2()
Dim i As Long, c As Range
 With Sheets(1)
  For i = 3 To .Cells(Rows.Count, 4).End(xlUp).Row - 1
   Set c = .Range(.Cells(i, 4), .Cells(i, Columns.Count)).Find("*")
     If c.Column > 4 Then
  Sheets(2).Cells(i, 1) = c
     End If
   Next i
 End With
  With Sheets(2)
    .Cells(Rows.Count, 1).End(xlUp).Offset(1) = WorksheetFunction.Sum(.Columns(1))
  End With
End Sub