Tabelle zeilenweise durchlaufen

Ich bräuchte Hilfe bei dem Durchlaufen einer Tabelle Zeile für Zeile. Im Moment hab ich es nur Zellenweise. Ich will aber, dass A-G durchlaufen wird und dann ein /n gesetzt wird und er in neue Zeile springt, wieder durchläuft usw. Ist für einen Export in eine .txt. ich hab's im Moment soweit:

Open Pfad For Output As #1
For Each zelle In Range("a4:G1004")
Print #1, CStr(zelle) & "|";
Next
Print #1, ""
Close #1
End Sub

Zusätzlich brauche ich noch die Überprüfung, ob in A was drinne steht + in mindestens einem weiteren Feld. helft mir bitte- bin Änfängerin :-))