Private Sub CommandButton1_Click()
Dim l As Byte
Range('b5:c20').ClearContents
l = 5
With ListBox2
If .ListCount = 0 Then Exit Sub
For i = 1 To .ListCount
Range('b' & l) = .List(i - 1, 0)
Range('c' & l) = .List(i - 1, 1) * .List(i - 1, 2)
l = l + 1
Next i
End With
End Sub