Makro med If og Do...

Jeg hár et ark med en masse rækker indeholdende

Navn, adresse, tlf, produkt

Jeg ville gerne lave en makro som sorterer disse personer samt deres data i et nyt ark efter sorteret efter produkt type. (Der findes i alt 3 produkter: Pro, Standard, Discount)

Evt. kan de 3 produkter sorteres ud på 3 forskellige ark.

Jeg fandt følgende eksempel her på eksperten som jeg har prøvet at lege lidt med... (virker ikke pt, da den ikke kan greje en IF sætning ind i et loop??)

  Public Sub SkrivHusstande()

Dim i, j, k, maxRk, antal As Integer

maxRk = ActiveSheet.UsedRange.Rows.Count
k = 1

For i = 1 To maxRk
    antal = ActiveSheet.Cells(i, 6).Value
    j = 1
    Do While j <= antal


'XXXXX denne linje har jeg prøvet at tilføje: 
      If Cells(i, 7) = "pro" Then


        Range(Cells(i, 1), Cells(i, 4)).Copy Sheets(2).Cells(k, 1)
        j = j + 1
        k = k + 1
     
      Loop
Next i

End Sub


Er der nogen der kan hjælpe mig med at tilføje eksemplet en betingelse.

Mange hilsner

Davis