Soru FOR DÖNGÜ

[-asus-]

Merhabalar
makro çalışıyor ancak bir satır devam ediyor 3000 satır dursun istiyorum. ben başka bir sutün devam etsin istiyorum nasıl yapabilirim.

Sub RunME()
Range("A1").Select
Comb 54, 6, 1, " ' "
For n = 90 To 65 Step -1
Rept = Chr
Range("A:A").Replace What:=n - 64 & " ", Replacement:=rep1, Lookat:=x1part, searchorder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
DoEvents
Next
Range("A1").Select
End Sub

Sub Comb(ByVal n As Integer, ByVal m As Integer, ByVal k As Integer, ByVal s As String)
If m > n - k + 1 Then Exit Sub
If m = 0 Then
ActiveCell = s
ActiveCell.Offset(1, 0).Select
Exit Sub
End If
Comb n, m - 1, k + 1, s & k & " "
Comb n, m, k + 1, s
End Sub