makronun yeniden düzenlenmesi

[qwertylion]

arkadaşlar elimde şöyle bir kod var

Sub AKTAR()
Dim I, SUT, SON As Long
For I = 2 To Sheets.Count
Sheets(I).[A3:M1000].Clear
For SUT = 1 To Sheets("ANA LİSTE").UsedRange.Rows.Count
SON = Sheets(I).UsedRange.Rows.Count + 1
If Sheets(I).Name = Cells(SUT, "A") & " " & Cells(SUT, "B") Then
Sheets("ANA LİSTE").Cells(SUT, "A").EntireRow.Copy
Sheets(I).Cells(SON, "A").PasteSpecial
End If
Next
Next
Application.CutCopyMode = False
End Sub

burada a ve b sütunundaki değer eğer sayfa adıyla aynı ise ilgili değeri aktarıyor benim istediğim ise sadece b sütunu ile sheet adı aynıysa aktarısın . bu durumda makroyu nasıl düzeltmen gerekiyor? Yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki koddan kırmızı renkli kısmı silip denermisiniz.

If Sheets(I).Name = [COLOR=red]Cells(SUT, "A") & " " &[/COLOR] Cells(SUT, "B") Then

 

[qwertylion]

TeŞekkÜr Ederİm