Sub Third Dim idOfBusinessTrip As Integer idOfBusinessTrip Cells Works

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