OK, so I have the following code:
Dim oneCell As Range
Dim HeaderRange As String
Range("Z1").Select
Range(Selection, Selection.End(xlDown)).Select
HeaderRange = Selection.Address
For Each oneCell In Range(HeaderRange)
If oneCell.Value = "" Then
GoTo skip
End If...