Erro de compilación: procedimiento demasiado largo

hola resulta que quería probar esto que estaba haciendo y me sale "procedimiento demasiado largo"

me podrían decir como solucionarlo.?

Private Sub Registrar_Click()
If Range("B1") = "ENTREGA" Then
If Range("B3") = Hoja2.Range("b2") Then
If Range("B2") = "La Curba" Then
Hoja2.Range("B29") = Hoja2.Range("B29") + Range("B5")
Hoja2.Range("B30") = Hoja2.Range("B30") + Range("B6")
Hoja2.Range("B31") = Hoja2.Range("B31") + Range("B7")
Hoja2.Range("B32") = Hoja2.Range("B32") + Range("B8")
Hoja2.Range("B33") = Hoja2.Range("B33") + Range("B9")
Hoja2.Range("B34") = Hoja2.Range("B34") + Range("B10")
Hoja2.Range("B35") = Hoja2.Range("B35") + Range("B11")
Hoja2.Range("B36") = Hoja2.Range("B36") + Range("B12")
Hoja2.Range("B37") = Hoja2.Range("B37") + Range("B13")
Range("b1,b2,b3,b5,B6,B7,B8,B9,B10,B11,b12,b13").Value = ""
Else
Hoja2.Range("B16") = Hoja2.Range("B16") + Range("B5")
Hoja2.Range("B17") = Hoja2.Range("B17") + Range("B6")
Hoja2.Range("B18") = Hoja2.Range("B18") + Range("B7")
Hoja2.Range("B19") = Hoja2.Range("B19") + Range("B8")
Hoja2.Range("B20") = Hoja2.Range("B20") + Range("B9")
Hoja2.Range("B21") = Hoja2.Range("B21") + Range("B10")
Hoja2.Range("B22") = Hoja2.Range("B22") + Range("B11")
Hoja2.Range("B23") = Hoja2.Range("B23") + Range("B12")
Hoja2.Range("B24") = Hoja2.Range("B24") + Range("B13")
Range("b1,b2,b3,b5,B6,B7,B8,B9,B10,B11,b12,b13").Value = ""
End If
Else
If Range("B3") = Hoja2.Range("c2") Then
If Range("B2") = "La Curba" Then
Hoja2.Range("C29") = Hoja2.Range("C29") + Range("B5")
Hoja2.Range("C30") = Hoja2.Range("C30") + Range("B6")
Hoja2.Range("C31") = Hoja2.Range("C31") + Range("B7")
Hoja2.Range("C32") = Hoja2.Range("C32") + Range("B8")
Hoja2.Range("C33") = Hoja2.Range("C33") + Range("B9")
Hoja2.Range("C34") = Hoja2.Range("C34") + Range("B10")
Hoja2.Range("C35") = Hoja2.Range("C35") + Range("B11")
Hoja2.Range("C36") = Hoja2.Range("C36") + Range("B12")
Hoja2.Range("C37") = Hoja2.Range("C37") + Range("B13")
Range("b1,b2,b3,b5,B6,B7,B8,B9,B10,B11,b12,b13").Value = ""
Else
Hoja2.Range("C16") = Hoja2.Range("C16") + Range("B5")
Hoja2.Range("C17") = Hoja2.Range("C17") + Range("B6")
Hoja2.Range("C18") = Hoja2.Range("C18") + Range("B7")
Hoja2.Range("C19") = Hoja2.Range("C19") + Range("B8")
Hoja2.Range("C20") = Hoja2.Range("c20") + Range("B9")
Hoja2.Range("C21") = Hoja2.Range("C21") + Range("B10")
Hoja2.Range("C22") = Hoja2.Range("C22") + Range("B11")
Hoja2.Range("C23") = Hoja2.Range("C23") + Range("B12")
Hoja2.Range("C24") = Hoja2.Range("c24") + Range("B13")
Range("b1,b2,b3,b5,B6,B7,B8,B9,B10,B11,b12,b13").Value = ""
End If
Else

Etc..etc...