VBA - Loops

Hey

Jeg sidder her og prøver at få et loop til at kører som jeg vil have det.

Min nuværende kode er

Sub Gather_task()
Dim RS As Range

    For i = 4 To 10 Step 1
        Sheets(i).Select
            For p = 10 To 30
                If Cells(p, 2) = "x" Then
                Set RS = Range(p, 8)
                RS.Copy
                Sheets(2).Select
                             
                    For t = Range("B65535").End(xlUp).Row To 20 Step -1
                        If Cells(t, 2) = "NP" Then
                        Cells(t, 4).Select
                        Selection.Insert Shift:=xlDown
                        End If
                        Next
                End If
          Next
    Next
   
End Sub

Ideen er at scriptet går igennem sheetsne og

kigger i anden Colume efter et x og så kopier værdien i samme række colume 8. Den værdi skal den så overføre til sheet(2) ved at sætte den ind hvor den finder NP og skubbe rækken med NP en ned.

Der kan være flere af disse operationer per sheet, når den har været igennem det hele skal den gå til næste sheet

God vind