[Excel] Loop rows until Border found

[westconn1]

For i As Integer = 2 To 5 ' How many rows starting at row 2? Who knows?
         if not cells(i,1).Borders(xlEdgeTop).ColorIndex = xlnone then exit for ' checks column 1 for any top border
          For j As Integer = 1 To 10 Step 1 ' Always this many columns.
              
              toSheet.Cells(i, j) = fromSheet.Cells(i, j + 1)
          Next j
      Next i

you could alternatively check the the line style, for appropriate values