Need help simplifying vba code

Does anyone know how to simplify this code? It's doing the same thing except it's looking at different cell values. And I really don't feel like creating 8 different userforms that the command buttons will be assigned to these. There's got to be a better way of having a command button look at the ranges.

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim Found As Range
    Dim ProductCode As Range
        Set ProductCode = Sheets("Moulder 1").Range("B4")
        Set Found = Sheets("Product Code List").Range("A2:A300").Find(What:=ProductCode.value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
        Found.Offset(0, 2).value = Me.TextPackSize.value
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
    Application.ScreenUpdating = False
    Dim Found As Range
    Dim ProductCode As Range
        Set ProductCode = Sheets("Moulder 1").Range("B19")
        Set Found = Sheets("Product Code List").Range("A2:A300").Find(What:=ProductCode.value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
        Found.Offset(0, 2).value = Me.TextPackSize.value
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton3_Click()
    Application.ScreenUpdating = False
    Dim Found As Range
    Dim ProductCode As Range
        Set ProductCode = Sheets("Moulder 1").Range("B34")
        Set Found = Sheets("Product Code List").Range("A2:A300").Find(What:=ProductCode.value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
        Found.Offset(0, 2).value = Me.TextPackSize.value
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton4_Click()
    Application.ScreenUpdating = False
    Dim Found As Range
    Dim ProductCode As Range
        Set ProductCode = Sheets("Moulder 1").Range("B49")
        Set Found = Sheets("Product Code List").Range("A2:A300").Find(What:=ProductCode.value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlWhole, _
                                                       SearchOrder:=xlByRows, _
                                                       SearchDirection:=xlNext, _
                                                       MatchCase:=False)
        Found.Offset(0, 2).value = Me.TextPackSize.value
    Application.ScreenUpdating = True
End Sub

Genius. Thank you very much!

Maybe I should bring this up in another topic but I have to ask. I am trying to figure out how to show a userform if cell B4>0 and if cell I4=0. Then I would just have it as Userform10.show. I know it'll need to be in a worksheet change event but I can't figure out how to get it to show when those conditions are met.

Will do. But back to this code. What you have posted works except for the following. If I enter anything in the text box and click ok it does what it's supposed to do. Meaning it looks up the value in cell B4 and paste it to the other sheet. Now if I go down and enter a new value in the text box for cell B19 or any of the other cells in the array, it overwrites all of the values I typed in previously. Can you help me out with this? Not sure on how I should go about this. Meaning could I have it in here where if there's a value there then it won't do anything.

Example.
B4 has a value of 1009. I4 (which is a vlookup of cell B4) has no value in it at all. So I bring up the userform and say I type in 100 and hit ok it paste that value where it's supposed to and now cell I4 is showing 100
B19 has a value of 1012. I19 (same vlookup formula looking up the value in cell B19) has no value in it. Again I bring up the userform and I type in 200 this time. Now I4 and I19 are showing a value of 200.
And on down the line like this.