every time a cell matches take the whole row and paste it in another worksheet

[Richard_Thornton]

Hi Folks,

Spot the issue please

    

    Dim usLrow As Integer
    Dim z As Integer
    
        Sheets("Thuraya IP").Copy Before:=Sheets(1)
        Sheets("Thuraya IP (2)").Name = "Summary"
    
        usLrow = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row: z = 1
    
            Worksheets("Summary").Range("A1:G" & usLrow).RemoveDuplicates Columns:=1, Header:= _
                xlYes
        
        Range("D:G").Delete
        
        Cells(1, 4).Value = "Total Free Usage"
        Cells(1, 5).Value = "Total Usage"
        Cells(1, 6).Value = "Total Chargeable Usage"
        
    
    

    Dim o As Integer
    Dim c As Range
    Dim SIMno As Range
     
     For Each SIMno In Sheets("Summary").Range("A2:A" & usLrow)
            If SIMno >= 1 Then
            
                ThisWorkbook.Worksheets.Add(After:=Sheets("Summary")).Name = SIMno
            
                   For Each c In Sheets("Thuraya IP").Range("A1:A" & Lrow)
                        If c.Value = SIMno Then
                          c.EntireRow.Cut Worksheets(SIMno).Range("A" & o)
                o = o + 1
            End If
        
    Next c
    
            End If
    
    Next SIMno

This is a section of my code I need it to check a range for a SIM number then match that SIM number as many times as it appears in a different worksheet then for each time it appears copy the whole row it appears on to the spread sheet with the corresponding SIM number. The RedText is where it fails. I know it would be helpful if I posted the file but I dont have time right now to strip the personal data so any help correcting my statement would be great.

Thanks,

Rich