I am quite new to VBA.

I have a range O5:O21 called "thisarea" which is not always full.

Using

Sub test()

Dim rascal As Range

For Each rascal In Range("thisarea")
With Sheets("front page")
.Range("a2").Value = rascal.Value
.Calculate
MsgBox rascal.Value



End With
Next rascal

End Sub

I would like this to return only 'full cells' (the cells will always
have a formular in them)

I know offset will work but I am having a bad day and can't work it
out


Help please

Matthew