VBA Help please - Find First Row of Data?

[plasteredric]

Thank you for your reply

I have tried to incorporate your code however im unable to figure out where it needs to go in my code.

With ActiveSheet
FirstDataRow = .Range("A:A").Find("***X).Row + 1
FirstCellOfData = .Range("A:A").Find("***X).Offset(1,0)

With validity testing

Dim Found As Range
With ActiveSheet
Set Found =  .Range("A:A").Find("***X)
If Found Is Nothing Then Exit Sub, MsgBox, whatever
FirstDataRow = Found.Row + 1
FirstCellOfData = Found.Offset(1,0)