If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(Active) = True ActiveCell.Value = "Text 1" End If
www.google.com.tw