Mi codigo de visual basic no se ejecuta

Pon tu codigo aquí y lo veo.
>Un saludo
>Julio

hola gracias por ayudarme este es mi codigo pero no se ejecuta
Private Sub CommandButton1_Click()
If (Hoja2.Range("A5") = " ") Then
Hoja2.Range("A5") = Hoja1.Range("A2")
Hoja2.Range("B5") = Hoja1.Range("B30")
Hoja2.Range("C5") = Hoja1.Range("B31")
Hoja2.Range("D5") = Hoja1.Range("C31")
Hoja2.Range("E5") = Hoja1.Range("B32")
Hoja2.Range("F5") = Hoja1.Range("B33")
Hoja2.Range("G5") = Hoja1.Range("B34")
Hoja2.Range("H5") = Hoja1.Range("B38")
Hoja2.Range("I5") = Hoja1.Range("B39")
Hoja2.Range("J5") = Hoja1.Range("B40")
Hoja2.Range("K5") = Hoja1.Range("B41")
Hoja2.Range("L5") = Hoja1.Range("B42")
Hoja2.Range("M5") = Hoja1.Range("B43")
Hoja2.Range("N5") = Hoja1.Range("B44")
Hoja2.Range("O5") = Hoja1.Range("B49")
Hoja2.Range("P5") = Hoja1.Range("B50")
Hoja2.Range("Q5") = Hoja1.Range("B51")
Hoja2.Range("R5") = Hoja1.Range("B52")
Hoja2.Range("S5") = Hoja1.Range("B53")
Hoja2.Range("T5") = Hoja1.Range("B54")
Hoja2.Range("U5") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A6") = " ") Then
Hoja2.Range("A6") = Hoja1.Range("A2")
Hoja2.Range("B6") = Hoja1.Range("B30")
Hoja2.Range("C6") = Hoja1.Range("B31")
Hoja2.Range("D6") = Hoja1.Range("C31")
Hoja2.Range("E6") = Hoja1.Range("B32")
Hoja2.Range("F6") = Hoja1.Range("B33")
Hoja2.Range("G6") = Hoja1.Range("B34")
Hoja2.Range("H6") = Hoja1.Range("B38")
Hoja2.Range("I6") = Hoja1.Range("B39")
Hoja2.Range("J6") = Hoja1.Range("B40")
Hoja2.Range("K6") = Hoja1.Range("B41")
Hoja2.Range("L6") = Hoja1.Range("B42")
Hoja2.Range("M6") = Hoja1.Range("B43")
Hoja2.Range("N6") = Hoja1.Range("B44")
Hoja2.Range("O6") = Hoja1.Range("B49")
Hoja2.Range("P6") = Hoja1.Range("B50")
Hoja2.Range("Q6") = Hoja1.Range("B51")
Hoja2.Range("R6") = Hoja1.Range("B52")
Hoja2.Range("S6") = Hoja1.Range("B53")
Hoja2.Range("T6") = Hoja1.Range("B54")
Hoja2.Range("U6") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A7") = " ") Then
Hoja2.Range("A7") = Hoja1.Range("A2")
Hoja2.Range("B7") = Hoja1.Range("B30")
Hoja2.Range("C7") = Hoja1.Range("B31")
Hoja2.Range("D7") = Hoja1.Range("C31")
Hoja2.Range("E7") = Hoja1.Range("B32")
Hoja2.Range("F7") = Hoja1.Range("B33")
Hoja2.Range("G7") = Hoja1.Range("B34")
Hoja2.Range("H7") = Hoja1.Range("B38")
Hoja2.Range("I7") = Hoja1.Range("B39")
Hoja2.Range("J7") = Hoja1.Range("B40")
Hoja2.Range("K7") = Hoja1.Range("B41")
Hoja2.Range("L7") = Hoja1.Range("B42")
Hoja2.Range("M7") = Hoja1.Range("B43")
Hoja2.Range("N7") = Hoja1.Range("B44")
Hoja2.Range("O7") = Hoja1.Range("B49")
Hoja2.Range("P7") = Hoja1.Range("B50")
Hoja2.Range("Q7") = Hoja1.Range("B51")
Hoja2.Range("R7") = Hoja1.Range("B52")
Hoja2.Range("S7") = Hoja1.Range("B53")
Hoja2.Range("T7") = Hoja1.Range("B54")
Hoja2.Range("U7") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A8") = " ") Then
Hoja2.Range("A8") = Hoja1.Range("A2")
Hoja2.Range("B8") = Hoja1.Range("B30")
Hoja2.Range("C8") = Hoja1.Range("B31")
Hoja2.Range("D8") = Hoja1.Range("C31")
Hoja2.Range("E8") = Hoja1.Range("B32")
Hoja2.Range("F8") = Hoja1.Range("B33")
Hoja2.Range("G8") = Hoja1.Range("B34")
Hoja2.Range("H8") = Hoja1.Range("B38")
Hoja2.Range("I8") = Hoja1.Range("B39")
Hoja2.Range("J8") = Hoja1.Range("B40")
Hoja2.Range("K8") = Hoja1.Range("B41")
Hoja2.Range("L8") = Hoja1.Range("B42")
Hoja2.Range("M8") = Hoja1.Range("B43")
Hoja2.Range("N8") = Hoja1.Range("B44")
Hoja2.Range("O8") = Hoja1.Range("B49")
Hoja2.Range("P8") = Hoja1.Range("B50")
Hoja2.Range("Q8") = Hoja1.Range("B51")
Hoja2.Range("R8") = Hoja1.Range("B52")
Hoja2.Range("S8") = Hoja1.Range("B53")
Hoja2.Range("T8") = Hoja1.Range("B54")
Hoja2.Range("U8") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A9") = " ") Then
Hoja2.Range("A9") = Hoja1.Range("A2")
Hoja2.Range("B9") = Hoja1.Range("B30")
Hoja2.Range("C9") = Hoja1.Range("B31")
Hoja2.Range("D9") = Hoja1.Range("C31")
Hoja2.Range("E9") = Hoja1.Range("B32")
Hoja2.Range("F9") = Hoja1.Range("B33")
Hoja2.Range("G9") = Hoja1.Range("B34")
Hoja2.Range("H9") = Hoja1.Range("B38")
Hoja2.Range("I9") = Hoja1.Range("B39")
Hoja2.Range("J9") = Hoja1.Range("B40")
Hoja2.Range("K9") = Hoja1.Range("B41")
Hoja2.Range("L9") = Hoja1.Range("B42")
Hoja2.Range("M9") = Hoja1.Range("B43")
Hoja2.Range("N9") = Hoja1.Range("B44")
Hoja2.Range("O9") = Hoja1.Range("B49")
Hoja2.Range("P9") = Hoja1.Range("B50")
Hoja2.Range("Q9") = Hoja1.Range("B51")
Hoja2.Range("R9") = Hoja1.Range("B52")
Hoja2.Range("S9") = Hoja1.Range("B53")
Hoja2.Range("T9") = Hoja1.Range("B54")
Hoja2.Range("U9") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A10") = " ") Then
Hoja2.Range("A10") = Hoja1.Range("A2")
Hoja2.Range("B10") = Hoja1.Range("B30")
Hoja2.Range("C10") = Hoja1.Range("B31")
Hoja2.Range("D10") = Hoja1.Range("C31")
Hoja2.Range("E10") = Hoja1.Range("B32")
Hoja2.Range("F10") = Hoja1.Range("B33")
Hoja2.Range("G10") = Hoja1.Range("B34")
Hoja2.Range("H10") = Hoja1.Range("B38")
Hoja2.Range("I10") = Hoja1.Range("B39")
Hoja2.Range("J10") = Hoja1.Range("B40")
Hoja2.Range("K10") = Hoja1.Range("B41")
Hoja2.Range("L10") = Hoja1.Range("B42")
Hoja2.Range("M10") = Hoja1.Range("B43")
Hoja2.Range("N10") = Hoja1.Range("B44")
Hoja2.Range("O10") = Hoja1.Range("B49")
Hoja2.Range("P10") = Hoja1.Range("B50")
Hoja2.Range("Q10") = Hoja1.Range("B51")
Hoja2.Range("R10") = Hoja1.Range("B52")
Hoja2.Range("S10") = Hoja1.Range("B53")
Hoja2.Range("T10") = Hoja1.Range("B54")
Hoja2.Range("U10") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A11") = " ") Then
Hoja2.Range("A11") = Hoja1.Range("A2")
Hoja2.Range("B11") = Hoja1.Range("B30")
Hoja2.Range("C11") = Hoja1.Range("B31")
Hoja2.Range("D11") = Hoja1.Range("C31")
Hoja2.Range("E11") = Hoja1.Range("B32")
Hoja2.Range("F11") = Hoja1.Range("B33")
Hoja2.Range("G11") = Hoja1.Range("B34")
Hoja2.Range("H11") = Hoja1.Range("B38")
Hoja2.Range("I11") = Hoja1.Range("B39")
Hoja2.Range("J11") = Hoja1.Range("B40")
Hoja2.Range("K11") = Hoja1.Range("B41")
Hoja2.Range("L11") = Hoja1.Range("B42")
Hoja2.Range("M11") = Hoja1.Range("B43")
Hoja2.Range("N11") = Hoja1.Range("B44")
Hoja2.Range("O11") = Hoja1.Range("B49")
Hoja2.Range("P11") = Hoja1.Range("B50")
Hoja2.Range("Q11") = Hoja1.Range("B51")
Hoja2.Range("R11") = Hoja1.Range("B52")
Hoja2.Range("S11") = Hoja1.Range("B53")
Hoja2.Range("T11") = Hoja1.Range("B54")
Hoja2.Range("U11") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A12") = " ") Then
Hoja2.Range("A12") = Hoja1.Range("A2")
Hoja2.Range("B12") = Hoja1.Range("B30")
Hoja2.Range("C12") = Hoja1.Range("B31")
Hoja2.Range("D12") = Hoja1.Range("C31")
Hoja2.Range("E12") = Hoja1.Range("B32")
Hoja2.Range("F12") = Hoja1.Range("B33")
Hoja2.Range("G12") = Hoja1.Range("B34")
Hoja2.Range("H12") = Hoja1.Range("B38")
Hoja2.Range("I12") = Hoja1.Range("B39")
Hoja2.Range("J12") = Hoja1.Range("B40")
Hoja2.Range("K12") = Hoja1.Range("B41")
Hoja2.Range("L12") = Hoja1.Range("B42")
Hoja2.Range("M12") = Hoja1.Range("B43")
Hoja2.Range("N12") = Hoja1.Range("B44")
Hoja2.Range("O12") = Hoja1.Range("B49")
Hoja2.Range("P12") = Hoja1.Range("B50")
Hoja2.Range("Q12") = Hoja1.Range("B51")
Hoja2.Range("R12") = Hoja1.Range("B52")
Hoja2.Range("S12") = Hoja1.Range("B53")
Hoja2.Range("T12") = Hoja1.Range("B54")
Hoja2.Range("U12") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A13") = " ") Then
Hoja2.Range("A13") = Hoja1.Range("A2")
Hoja2.Range("B13") = Hoja1.Range("B30")
Hoja2.Range("C13") = Hoja1.Range("B31")
Hoja2.Range("D13") = Hoja1.Range("C31")
Hoja2.Range("E13") = Hoja1.Range("B32")
Hoja2.Range("F13") = Hoja1.Range("B33")
Hoja2.Range("G13") = Hoja1.Range("B34")
Hoja2.Range("H13") = Hoja1.Range("B38")
Hoja2.Range("I13") = Hoja1.Range("B39")
Hoja2.Range("J13") = Hoja1.Range("B40")
Hoja2.Range("K13") = Hoja1.Range("B41")
Hoja2.Range("L13") = Hoja1.Range("B42")
Hoja2.Range("M13") = Hoja1.Range("B43")
Hoja2.Range("N13") = Hoja1.Range("B44")
Hoja2.Range("O13") = Hoja1.Range("B49")
Hoja2.Range("P13") = Hoja1.Range("B50")
Hoja2.Range("Q13") = Hoja1.Range("B51")
Hoja2.Range("R13") = Hoja1.Range("B52")
Hoja2.Range("S13") = Hoja1.Range("B53")
Hoja2.Range("T13") = Hoja1.Range("B54")
Hoja2.Range("U13") = Hoja1.Range("B55")
Else
If (Hoja2.Range("A14") = " ") Then
Hoja2.Range("A14") = Hoja1.Range("A2")
Hoja2.Range("B14") = Hoja1.Range("B30")
Hoja2.Range("C14") = Hoja1.Range("B31")
Hoja2.Range("D14") = Hoja1.Range("C31")
Hoja2.Range("E14") = Hoja1.Range("B32")
Hoja2.Range("F14") = Hoja1.Range("B33")
Hoja2.Range("G14") = Hoja1.Range("B34")
Hoja2.Range("H14") = Hoja1.Range("B38")
Hoja2.Range("I14") = Hoja1.Range("B39")
Hoja2.Range("J14") = Hoja1.Range("B40")
Hoja2.Range("K14") = Hoja1.Range("B41")
Hoja2.Range("L14") = Hoja1.Range("B42")
Hoja2.Range("M14") = Hoja1.Range("B43")
Hoja2.Range("N14") = Hoja1.Range("B44")
Hoja2.Range("O14") = Hoja1.Range("B49")
Hoja2.Range("P14") = Hoja1.Range("B50")
Hoja2.Range("Q14") = Hoja1.Range("B51")
Hoja2.Range("R14") = Hoja1.Range("B52")
Hoja2.Range("S14") = Hoja1.Range("B53")
Hoja2.Range("T14") = Hoja1.Range("B54")
Hoja2.Range("U14") = Hoja1.Range("B55")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub