Loop to not consider visibly blank cells(By Formula)

[fari1]

Sub loopA()
Dim cel As Range
Dim mySheet As Worksheet
Set mySheet = Sheets("wquery")
For Each cel In Sheets("data").Range("A" & Sheets("data").Range("A1").End(xlDown).Row & ":A" & Sheets("data").Range("A" & Rows.Count).End(xlUp).Row)
mySheet.Range("A1") = cel.Value
Next cel
End Sub

i want to amend the code to not consider those cells in the loop which are visibly blank, by formula

 

[shg]

Replace

mySheet.Range("A1") = cel.Value

with

If Len(cel.Text) then mySheet.Range("A1") = cel.Value

... but I don't see why you'd want to keep overwriting A1.

 

[storm8]

mayebe

dim rng as range
set rng = Sheets("data").Range("A" & Sheets("data").Range("A1").End(xlDown).Row & ":A" & Sheets("data").Range("A" & Rows.Count).End(xlUp).Row)
set rng = rng.specialCells(cellTypeXLVisible)

(I did not test it)