Autofill de la celula selectata, 6 randuri in jos

[maryurs24]

Va salut
Am urmatoarea situatie:
Intr-un fisier excel, am scris un cod:

Cod: Selectaţi tot

Sub Soultanov()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    If ActiveSheet.Cells(i, 2) = "A.B.C." Then
        ActiveSheet.Range("AB" & i) = "CMC79"
    End If
Next i

Asta inseamna ca verifica pe coloana a 2-a daca textul din fiecare celula este :A.B.C. , iar daca da, pe coloana AB, pe acelasi rand scrie CMC79
Merge perfect.
Apoi am recopiat acelasi cod pt alt text pe aceeasi coloana.La fel, merge perfect.
Problema apare cand la cod adaug un nou rand care ar trebui ca atunci cand scrie pe coloana AB ce are de scris, sa copieze acel text si pe urmatoarele 6 randuri, adica daca in coloana 2 gaseste A.B.C. pe randul7, el sa scrie CMC79 in AB7 pana in AB13, apoi continua cautarea pe coloana 2
Noul rand de cod scris inainte de End If este:

Cod: Selectaţi tot

        Range ("AB" & i).AutoFill Range("AB&i:AB" & Range("AB" &i+6 Rows.Count).End(xlUp).Row)

Si aici apare "compile error"
Nu imi dau seama unde gresesc.
Ma puteti ajuta va rog?

[TudyBTH]

Buna,

inlocuiti ActiveSheet.Range("AB" & i) = "CMC79"
cu

Cod: Selectaţi tot

ActiveSheet.Range("AB" & i).Resize(7, 1).Value = "CMC79"

[maryurs24]

Merge perfect.
Multumesc