VB Case - Button In A Spreadsheet That Auto Populate's Certain Cells With This Script

I have a button in a spreadsheet that auto populate's certain cells with this script very simple.


Sub Bundle_8230()
[C242] = "HP NC8230"
[C243] = "Deluxe Laptop Bag"
[C244] = "Travel Battery"
[C245] = "Mouse"
[C246] = "Keyboard"
[C247] = "Port Replicator"
[D242] = "1"
[D243] = "1"
[D244] = "1"
[D245] = "1"
[D246] = "1"
[D247] = "1"

End Sub

What i would need is a script so that it doesn't look at those specific cells
but a range of cells and every time the button is clicked it will fall into the first empty cells.

So example when button is clicked
Case 1 if cells C242 has something look at cell C243
If cell C243 has something look at cell C244
If cell C244 has nothing then enter data that goes with that button.
I have around 6 to 7 different buttons.