Как применить цикл ко всему столбцу

Question

У меня есть кнопка, которая работает на J2 и дает результат в K2. Каков будет код, который в той же самой операции запускает ту же самую операцию, примененную к J3 в K3 и так далее, пока система не найдет пустое поле? Следует моему коду:

Private Sub CommandButton1_Click()
    totalsheets = Worksheets.Count
    mykeyword = Worksheets("GLOBALIATA").Cells(2, 10).Value
    For i = 1 To totalsheets
        If Worksheets(i).Name <> "GLOBALIATA" Then
            lastrow = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            For j = 2 To lastrow
                If Worksheets(i).Cells(j, 1).Value = mykeyword Then
                    Worksheets("GLOBALIATA").Activate lastrow = Worksheets("GLOBALIATA").Cells(Rows.Count, 1).End(xlUp).Row
                    Worksheets("GLOBALIATA").Cells(lastrow + 1, 11).Value = Worksheets(i).Name
                End If
            Next
        End If
    Next
End Sub