Makro yu kısaltmak

[aydgur]

Sub makro112()
For a = 2 To 3000
isim = Cells(a, 1).Value
If isim = "" Then Exit Sub
Sheets("AAA").Cells(a, 2) = Sheets(isim).Cells(2, 25).Value
Sheets("AAA").Cells(a, 3) = Sheets(isim).Cells(3, 25).Value
Sheets("AAA").Cells(a, 4) = Sheets(isim).Cells(4, 25).Value
Sheets("AAA").Cells(a, 5) = Sheets(isim).Cells(5, 25).Value
Sheets("AAA").Cells(a, 6) = Sheets(isim).Cells(6, 25).Value
Next a
End Sub
bu makroda 250.sayfaya kadar tekrar yapmak yerine daha kısa olarak makroyu yazabilirmiyim. Hepinizin bayramı kutlu olsu !

 

[idogus]

[vb:1:401f2f3e7b]
If isim = "" Then Exit Sub
For b=2 to 250
Sheets("AAA").Cells(a, b) = Sheets(isim).Cells(b, 25).Value
Next b
Next a
[/vb:1:401f2f3e7b]