ボタンを押下したときに「OK」をデータの数分書きこみたい

Question

以下のようなことを実現しようとしています。

実現したいこと

「OK一括入力」ボタンを押下したときに、C列に値が入っていればB列に「OK」と入力したい

OKを入力する数が決まっている場合は

Sub Sample()
    Dim inpData() As Variant
    Dim i As Long
    
    'データ100個分の要素を用意する
    ReDim inpData(99, 0)
    
    For i = 0 To 99
        inpData(i, 0) = "OK"
    Next i
    
    Range("A1").Resize(UBound(inpData) + 1, 1).Value = inpData  '--(1)
End Sub

で実現できるのですが、データの個数が可変の場合はどのように実現したらよいのでしょうか？
データの個数分（今回は7つ）、OKの文字を入れてあげたいです。

どうぞよろしくお願いいたします。

Answer 1

Sub Sample()
Dim i As Long
Dim n As Long
Dim nn As Long
'nはC列の最終行取得
n=Cells(Rows.Count,3).End(xlup).Row
'nnはB列の最終行取得
nn=Cells(Rows.Count,2).End(xlup).Row
For I =n+1 To nn
Cells(I,2)="OK"
Next i
Enf Sub

num = WorksheetFunction.CountA(Range("C22:C100"))
これでは、検索するセルは固定ですね。
"C100"を超えると　また書き換えなければなりません
n=Cells(Rows.Count,3).End(xlup).Row
これはよく使います

Comments

[ypk]

ありがとうございます！
勉強になりました、、、、

Answer 2

Private Sub OK一括入力_Click()

    Dim i As Long
    
    '入力する個数を求める
    Dim num As Integer
    num = WorksheetFunction.CountA(Range("C22:C100"))
    
    
    For i = 22 To num + 21
        Cells(i, 3) = "OK"
    Next i
    
End Sub

これで実現できました！