VBAで入力チェッカーを作っているのですが、仕様の部分でなやんでいます。

Private Sub CommandButton1_Click()

Dim i As Long
lastRow = Range("A65536").End(xlUp).Row

For i = 10 To lastRow
If Range("A" & i).Value = "" Then
Range("A" & i).Value = ???
Exit For
End If
Next i

End Sub

USERがあるセルにデータを入力するとA列に５行ごと自動に値が入ります。
しかし、入力忘れで５行飛ばしたりはたまた１０行空白が出来る場合があります。
その際のチェッカーの役割なのですが。。。
したから行を見ていってA１０～最終行までの間でどこか空白があったら下から空白を探し空白箇所から5個上のセルの値を基本的にコピーをしていれる。
もし5個上のセルにも無かったら10個上みたいにやりたいのですがどうしたらよいでしょうか？

今調べているセルをＸとすると、
５個上のセルは

Ｘ.Offset(-5)

その値は

Ｘ.Offset(-5).Value

で得ることができます。