If Worksheets("Calculation").Range("L17").Value > 0 Then
With .Add(, , Worksheets("Calculation").Range("L15").Text)
.ListSubItems.Add , , Worksheets("Calculation").Range("L17").Text
.ListSubItems.Add , , Worksheets("Calculation").Range("L16").Text
.ListSubItems.Add , , Worksheets("Calculation").Range("L18").Text
.ListSubItems.Add , , Worksheets("Calculation").Range("L19").Text
End With
End If