Se Criteri Loop Condizionale

Sto cercando di get la mia macro per trovare un valore specifico (un valore datato) e basata su quel valore crea una cartella di lavoro che mostra tutte le righe che hanno lo stesso numero di criteri (i criteri unici) e il valore datato che ho specificato. Il problema è che la mia macro non lo fa per un solo numero di policy, ma per tutti con il valore datato che ho specificato. Ho provato il codice qui sotto, ma continuo a ricevere messaggi di errore. Quindi qualsiasi aiuto sarebbe assolutamente incredibile!

Sub Invoice() Dim s As Integer s = 2 Dim t As Integer t = 21 Dim r As Integer r = 2 Dim policy As String Dim sheet As Worksheet Set sheet = ActiveWorkbook.Sheets("sheet1") policy = Workbooks("Woorkbook2.xlsm").Sheets("sheet1").Range("A" & r).Value If Cells(s, 1).Value = policy Then Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate mini = Cells(s, 21).Value If mini = "2" Then Dim Newbook As Workbook Set Newbook = Workbooks.Add Workbooks("Workbook2.xlsm").Sheets("Invoice Template (2)").Copy Before:=Newbook.Sheets(1) ActiveSheet.Name = "Current Invoice" Workbooks("Workbook2.xlsm").Sheets("Sheet1").Activate Do Until IsEmpty(Cells(s, 1)) Newbook.Sheets("Current Invoice").Cells(t, 2).Value = Cells(s, 10).Value Newbook.Sheets("Current Invoice").Cells(t, 3).Value = Cells(s, 8).Value Newbook.Sheets("Current Invoice").Cells(t, 7).Value = Cells(s, 11).Value Loop s = s + 1 r = r + 1 End If End IF End Sub 

Credo che il ciclo dovrebbe andare dopo l'incremento di 's':

 Do Until IsEmpty(Cells(s, 1)) Newbook.Sheets("Current Invoice").Cells(t, 2).Value = Cells(s, 10).Value Newbook.Sheets("Current Invoice").Cells(t, 3).Value = Cells(s, 8).Value Newbook.Sheets("Current Invoice").Cells(t, 7).Value = Cells(s, 11).Value s = s + 1 Loop s = s + 1 Do Until IsEmpty(Cells(s, 1)) Newbook.Sheets("Current Invoice").Cells(t, 2).Value = Cells(s, 10).Value Newbook.Sheets("Current Invoice").Cells(t, 3).Value = Cells(s, 8).Value Newbook.Sheets("Current Invoice").Cells(t, 7).Value = Cells(s, 11).Value s = s + 1 Loop