macro excel

[Reinaldo5 0]

Boa noite.EU PRECISO FAZER UM LOOP(500 VEZES) COM OS DADOS ABAIXO.Range("B10:AB10").SelectSelection.CopyRange("B6").SelectActiveSheet.PasteSheets("PERG").SelectRange("BL8:BW8").SelectApplication.CutCopyMode=FalseSelection.CopyRange("BL10").SelectSelection.PasteSpecialPaste:= x!PasteValues,Operation:=x!None,SkipBlanks_:=False,Transpose: =FalseSheets("RESP").Selectend subOBS: as células ("B10:AB10") e ("BL10")são as variáveis. tem que assumir:("B11:AB11") e ("BL11") na primeira passagem e ("B509:AB509") e ("BL509") na última.Obs1: COPIEI O ACIMA DO EDITOR DO VISUAL BASIC, APÓS GRAVAR A MACRO.DESDE JÁ AGRADEÇO

[jolienai 0]

adione o seguinte codigo antes do seu:dim i as integerfor i=0 to 500<aqui você coloca o seu codigo>next i