PROBLEMA CON MACRO Cells.Find "LO HE INTENTADO TODO"

[sergio_1709]

MUCHAS GRACIAS ABRAHAM.. LA MACRO FUNCIONA EXCELENTE... SABES.. UNA PREGUNTA... HAY UN LIMITE DE LINEAS PARA ESTA MACRO:
Private Sub CommandButton1_Click()


Range("b10").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select

Loop

ActiveCell.Offset(0, 0) = Label100.Caption ' PRE
ActiveCell.Offset(0, 1) = Label101 'FULL NAME
ActiveCell.Offset(0, 2) = Label102 'ADDRESS
ActiveCell.Offset(0, 3) = Label103 'CITY
ActiveCell.Offset(0, 4) = Label104 'STATE
ActiveCell.Offset(0, 5) = Label105 'ZIP
ActiveCell.Offset(0, 6) = Label106 'PHONE
ActiveCell.Offset(0, 7) = Label107 'AGE
ActiveCell.Offset(0, 10) = Label115 'DO NOT CALL
ActiveCell.Offset(0, 11) = Label108 '1ST CALL
ActiveCell.Offset(0, 12) = Label109 '2ND CALL
ActiveCell.Offset(0, 13) = Label110 '3RD CALL
ActiveCell.Offset(0, 14) = Label111 'E-MAIL
ActiveCell.Offset(0, 15) = Label112 'DATE CALL AGAIN
ActiveCell.Offset(0, 16) = Label113 '1ST PHASE COMMENTS


Unload UserForm3

End


End Sub

O PUEDO SEGUIR (0,17) ... (0,18 ...... ETC ETC ? HASTA LA COLUMNA QUE QUIERA? LO QUE PASAS ES QUE SIGO LA TENDENCIA DE ARRIBA.. Y EL
ActiveCell.Offset(0,17) = Label124 'MARITAL STATUS MARRIAGE
no funciona.. y quizas... no puedo seguir añadiendo mas y mas.. o tengo que hacer algo para seguir haciendolo ?

gracias por tu ayuda... te lo agradezco sinceramente!


SERGIO LIZARRAGA
MEXICO