Problema operando con valores de textbox de excel y vb

[sven_uri]

Buenas tardes genios,

Descripción de lo que tiene que hacer el programilla:
En los campos que se asigne, se tiene que coger el valor de un textbox en formato numero (nomina) y a partir de este valor se calcula el siguiente textbox y a partir de este el siguiente. Todo esto una vez apriete el boton de guardar (o sea, que ingrese los valores del formulario en una hoja excel concreta que ya tengo designada)

Haces poco que me inicie con el tema de las macros y el vb. Resulta que estoy trabajando con excel y como veia feo que me cogiera los valores de una celda quise que fuera todo desde el formulario. Os paso el código haber si veis lo que yo no consigo ver.

Grácias de antemano por vuestro tiempo :)

ACCIONES DE LOS BOTONES:

Código vb:

Private Sub CommandButton1_Click()
ActiveSheet.Range("A2").Select
    NOUPS
    Range("AA8").Value = Range("AA8").Value + 1
    '[AA8] = [AA8] + 1
    Sheets("Assignar Ofertes").Range("AA1:AA7").ClearContents
    Sheets("Assignar Ofertes").Range("AA9:AA11").ClearContents
    
    UserForm2.Hide
End Sub
 
Private Sub CommandButton2_Click()
    ActiveSheet.Range("A2").Select
    UserForm2.Hide
    End
End Sub
 
Private Sub Label9_Click()
 
End Sub
 
Private Sub TextBox5_Change()
TextBox5.Text = CDbl(TextBox4.Text) / 11
End Sub
 
Private Sub TextBox6_Change()
TextBox6.Text = CDbl(TextBox7.Text) / 40
End Sub
 
Private Sub TextBox7_Change()
TextBox7.Text = (CDbl(TextBox5.Text) / 30) * 7
End Sub
 

MOVER DATOS:

Código vb:

Sub NOUPS()
    Sheets("Assignar Ofertes").Range("AA1").Copy
    Sheets("Llista Productes i Serveis").Range("B2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA2").Copy
    Sheets("Llista Productes i Serveis").Range("C2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA3").Copy
    Sheets("Llista Productes i Serveis").Range("D2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA4").Copy
    Sheets("Llista Productes i Serveis").Range("E2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA5").Copy
    Sheets("Llista Productes i Serveis").Range("F2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA6").Copy
    Sheets("Llista Productes i Serveis").Range("G2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA7").Copy
    Sheets("Llista Productes i Serveis").Range("H2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA8").Copy
    Sheets("Llista Productes i Serveis").Range("A2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA9").Copy
    Sheets("Llista Productes i Serveis").Range("K2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA10").Copy
    Sheets("Llista Productes i Serveis").Range("J2").Insert shift:=xlDown
    Sheets("Assignar Ofertes").Range("AA11").Copy
    Sheets("Llista Productes i Serveis").Range("I2").Insert shift:=xlDown
    Application.CutCopyMode = False
End Sub