Another option is:'Move to the Beginning of the WorksheetRange("A1").Select'Find the next empty cell in column ADo Until ActiveCell = ""ActiveCell.Offset(1, 0).Range("A1").SelectLoop