1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Sub Third() 'Dim idOfBusinessTrip As Integer 'idOfBusinessTrip = Cells(i, 1) 'Worksheets(1).Activate 'Dim j As Integer 'j = 2 Worksheets(1).Activate Dim i As Integer i = 2 Do While Cells(i, 1) <> "" i = i + 1 Loop Cells(i, 1) = "!!!" End Sub