by adding second stop condition like:
            Do While ActiveWorkbook.Sheets("WorkSheet-1").Cells(row, 1).Value <> "" and row < 53
to both loops