VBAマクロで罫線の引かれたセルの値を変数に入れたい。

VBAマクロで罫線の引かれたセルの値を変数に入れ、その後他セルに同変数の値を書き込みたいのですがうまくいきません。
下記マクロを実行するとエラーは出ないものの、書き込みたいセルが空白のままで終了してしまいます。
修正方法がおわかりになる方何卒ご教授頂けますと幸いです。

Dim kei As Long
Dim cnt As Long
Dim tyk1 As Variant
Dim tyk2 As Variant
Dim ii As Integer
Dim a As Integer

With ActiveSheet
a = .UsedRange.Cells(.UsedRange.Count).Row 'xに最終行を取得

'上から4番目の太罫線の上のセルの値（文字列）と、同5番目のセルの値をそれぞれ変数に入れる
For kei = 1 To a
If .Range("F" & kei).Borders(xlEdgeBottom).Weight = xlThick Then
cnt = cnt + 1
If cnt = 4 Then
tyk1 = .Range("F" & kei).Value
ElseIf cnt = 5 Then
tyk2 = .Range("F" & kei).Value
End If
End If
Next kei

'変数に入れた値をQ列、R列にそれぞれ入れる（F列が空白の行除く）
'tyk１
For ii = 1 To a
If Not .Cells(ii, 6) = "0" Then
.Cells(ii, 17).Value = tyk1
End If
Next ii
'tyk2
For ii = 1 To a
If Not .Cells(ii, 6) = "0" Then
.Cells(ii, 18).Value = tyk2
End If
Next ii

End With

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/04/20 16:29

＞（F列が空白の行除く）

For ii = 1 To a
If .Cells(ii, 6) <> "" Then
'tyk１
.Cells(ii, 17).Value = tyk1
'tyk2
.Cells(ii, 18).Value = tyk2
End If
Next ii