Estou precisando fazer uma rotina que irá copiar o intervalo de Sheets("Contra").Rows("34:65") de acordo com o número de vezes que houver no" textnumber".
Por exemplo, se no textnumber houver o número 8, esse intervalo deverá ser copiado 8 vezes e assim por diante.
Acontece que preciso que esse intervalo seja copiado sempre abaixo do último intervalo que foi copiado.
Importante dizer que tais intervalos que estão sendo copiados são os dados e a formatação.
E é ai que estou tendo dificudades em criar a rotina. Utilizando o gravador de macros cheguei próximo, vide o código abaixo, porém eu preciso que essa rotina se repita o número de vezes que estiver em txtnumber.
Código: Selecionar todos
Sub Copia()
Rows("35:64").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=15
Rows("66:66").Select
ActiveSheet.Paste
End Sub
Espero que tenha dado pra entender o problema e que alguém possa me ajudar.
Abraço