I am trying to copy row 2, paste it into Row 1 and delete row 2 and then loop through col A:A to look for a nonblank value and then keep repeating the code till it only Row one is left and all the other rows are deleted. Currently it is doing this partially in that it is only getting to half way through the list and then ending. For ex: In a list with 65 records, it will run the code for 31 records and then end. Any idea how I could solve this issue. Thanks


For Each dd1 In Range("A:A").SpecialCells(xlConstants)
     
      Sheets("OC1").Select
      dd1.Select
     
    Rows("2:2").Copy
    Rows("1:1").Select
    ActiveSheet.Paste
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
 
Next dd1