With ActiveSheet
LastRow = .UsedRange.Rows.Count
.Range(.Cells(FirstRow, 1), .Cells(LastRow, 1)).EntireRow.Select
End With

This line performs the tasks that it is asked but it erases other values
contained in a combobox in another workbook.