With UserForm4.ListBox9
ShSP.Range("B13").Resize(.ListCount) = .List(0, 3)
ShSP.Range("F13").Resize(.ListCount) = .List(0, 6)
ShSP.Range("B14").Resize(.ListCount) = .List(1, 3)
ShSP.Range("F14").Resize(.ListCount) = .List(1, 6)
ShSP.Range("B15").Resize(.ListCount) = .List(2, 3)
ShSP.Range("F15").Resize(.ListCount) = .List(2, 6)
End With