Sub Third Dim idOfBusinessTrip As Integer idOfBusinessTrip Cells Works

 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