The code looks something like this:
while m < arrayLength: Cell = ws.Cells(row, 1) if(Cell.Value == "pasteBeforeThis"): copyRang