ちなみに条件になる時にこのマクロをじっこうするようにしています
Dim y As Integer
    Dim x As Integer
        y = 2
        x = 1
   
    UserForm1.TextBox6.Text = ActiveSheet.Cells(y, x).Value 

    y = y + 2

2番目行こう拾ってくれない。