Do Until Cell IsEmpty

Hi

Here's one way. It doesn't look for a blank cell, but processes all the data in column A, regardless.

Sub aaa()
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("E1").Resize(1, 2).Value = Cells(i, 1).Resize(1, 2).Value

  Next i
End Sub

Went back and looked at your earlier post and am not sure what you are trying achieve. Do you just want to output a list of all the pairings of the numbers from 1 to 45? As in 1,1; 1,2;...1,45; 2,3; 2,4; ...2,45; 3,4;...


rylo